/programs/other/table/KosFile.cpp |
---|
0,0 → 1,132 |
#include "kosSyst.h" |
#include "kosfile.h" |
//#include "string.h" |
CKosFile::CKosFile(char *fileName) |
{ |
// |
this->fileInfo.bufferPtr = new Byte[FILE_BUFFER_SIZE]; |
// |
this->filePointer = 0; |
this->bufferPointer = 0; |
this->validBuffer = false; |
// |
strcpy( this->fileInfo.fileURL, fileName ); |
} |
CKosFile::~CKosFile(void) |
{ |
// |
delete this->fileInfo.bufferPtr; |
} |
void CKosFile::ValidateBuffer() |
{ |
// |
if ( this->validBuffer ) |
{ |
// |
if ( this->filePointer < this->bufferPointer |
|| this->filePointer >= (this->bufferPointer + FILE_BUFFER_SIZE) ) |
{ |
// |
this->validBuffer = false; |
} |
} |
} |
void CKosFile::UpdateBuffer(void) |
{ |
// |
if ( ! this->validBuffer ) |
{ |
// |
this->fileInfo.OffsetLow = this->filePointer / OS_BLOCK_SIZE; |
this->fileInfo.OffsetHigh = 0; |
// |
this->bufferPointer = this->fileInfo.OffsetLow * OS_BLOCK_SIZE; |
// |
this->fileInfo.dataCount = FILE_BUFFER_BLOCKS; |
// |
this->fileInfo.rwMode = 0; |
// |
Dword rr = kos_FileSystemAccess( &(this->fileInfo) ); |
this->validBuffer = ( rr == 0 ); |
} |
} |
int CKosFile::Seek(int seekFrom, int seekStep) |
{ |
// |
switch ( seekFrom ) |
{ |
// |
case SEEK_SET: |
// |
this->filePointer = seekStep; |
break; |
// |
case SEEK_CUR: |
// |
this->filePointer += seekStep; |
break; |
} |
// |
this->ValidateBuffer(); |
// |
return this->filePointer; |
} |
int CKosFile::Read(Byte *targetPtr, int readCount) |
{ |
int bufferLeast, result; |
// |
result = 0; |
// |
do |
{ |
// |
this->UpdateBuffer(); |
// |
if ( ! this->validBuffer ) return result; |
// |
bufferLeast = FILE_BUFFER_SIZE - (this->filePointer - this->bufferPointer); |
// |
if ( bufferLeast > readCount ) bufferLeast = readCount; |
// |
if ( bufferLeast ) |
{ |
// |
memcpy( |
targetPtr, |
this->fileInfo.bufferPtr + (this->filePointer - this->bufferPointer), |
bufferLeast |
); |
// |
targetPtr += bufferLeast; |
readCount -= bufferLeast; |
this->filePointer += bufferLeast; |
// |
result += bufferLeast; |
} |
// |
this->ValidateBuffer(); |
} |
while ( readCount > 0 ); |
// |
return result; |
} |
int CKosFile::Write(Byte *sourcePtr, int writeCount) |
{ |
return 0; |
} |
/programs/other/table/KosFile.h |
---|
0,0 → 1,26 |
#pragma once |
#define SEEK_SET 0 |
#define SEEK_CUR 1 |
#define FILE_BUFFER_SIZE 512 |
#define OS_BLOCK_SIZE 1 |
#define FILE_BUFFER_BLOCKS (FILE_BUFFER_SIZE / OS_BLOCK_SIZE) |
class CKosFile |
{ |
public: |
CKosFile(char *fileName); |
virtual ~CKosFile(void); |
virtual int Read(Byte *targetPtr, int readCount); |
virtual int Write(Byte *sourcePtr, int writeCount); |
virtual int Seek(int seekFrom, int seekStep); |
protected: |
int filePointer; |
int bufferPointer; |
bool validBuffer; |
kosFileInfo fileInfo; |
virtual void ValidateBuffer(void); |
virtual void UpdateBuffer(void); |
}; |
/programs/other/table/MCSMEMM.H |
---|
0,0 → 1,28 |
// |
struct MemBlock |
{ |
Dword Size; |
Dword Addr; |
MemBlock *Next; |
MemBlock *Previous; |
}; |
#define INITIALQUEUESIZE (32 * 4) |
#define FALSE 0 |
#define TRUE -1 |
#define MB_FREE 0 |
#define MB_USER 1 |
#define SIZE_ALIGN 4 |
Byte *allocmem( Dword reqsize ); |
Dword freemem( void *vaddress ); |
/programs/other/table/calc.cpp |
---|
0,0 → 1,1474 |
#include "func.h" |
#include "parser.h" |
#include "calc.h" |
#include "kosSyst.h" |
//#include "KosFile.h" |
extern DWORD def_col_width, def_row_height; |
extern DWORD col_count, row_count; |
extern char ***cells; |
extern DWORD *col_width, *row_height; |
extern char ***values; |
extern DWORD *col_left, *row_top; |
// áóôåð îáìåíà |
extern char ***buffer; |
extern DWORD buf_col, buf_row; |
extern DWORD buf_old_x, buf_old_y; |
extern bool sel_moved; |
int cf_x0, cf_x1, cf_y0, cf_y1; |
#define sign(x) ((x) < 0 ? -1 : ((x) == 0 ? 0 : 1)) |
//extern const char er_file_not_found[]; |
//extern const char er_format[]; |
extern const char *sFileSign; |
struct cell_list |
{ |
int x,y; |
cell_list *next; |
}; |
// ïîëó÷èòü õ-êîîðäèíàòó ÿ÷åéêè ñ íîìåðîì õ |
int get_x(int x) |
{ |
int i, r = 0; |
if (x > col_count) |
x = col_count; |
for (i = 0; i < x; i++) |
r+=col_width[i]; |
return r; |
} |
// àíàëîã |
int get_y(int y) |
{ |
int i, r = 0; |
if (y > row_count) |
y = row_count; |
for (i = 0; i < y; i++) |
r+=row_height[i]; |
return r; |
} |
// ñãåíåðèòü çàãîëîâîê ñòîëáöà |
char *make_col_cap(int i) |
{ |
char *r = (char*)allocmem(3); |
if (i <= 26) |
{ |
r[0] = 'A' + i - 1; |
r[1] = '\0'; |
return r; |
} |
else if (i % 26 == 0) // ôèêñ áàãà êîòîðûé íå ïîíÿë - äà ïðîñòÿò ìåíÿ ÷èòàòåëè è þçåðà |
{ |
r[0] = (i / 26) - 1 + 'A' - 1; |
r[1] = 'Z'; |
r[2] = '\0'; |
return r; |
} |
r[0] = (i / 26) + 'A' - 1; |
r[1] = (i % 26) + 'A' - 1; |
r[2] = '\0'; |
return r; |
} |
// -"- ñòðîêè |
char *make_row_cap(int i) |
{ |
char *r = (char*)allocmem(3); |
if (i <= 9) |
{ |
r[0] = '0' + i; |
r[1] = '\0'; |
return r; |
} |
r[0] = (i / 10) + '0'; |
r[1] = (i % 10) + '0'; |
r[2] = '\0'; |
return r; |
} |
// èíèöèàëèçàöèÿ ÿ÷ååê |
void init() |
{ |
int i, j; |
//col_count = WND_W / def_col_width; |
//row_count = WND_H / def_row_height; |
col_width = (DWORD*)allocmem(col_count * sizeof(DWORD)); |
row_height = (DWORD*)allocmem(row_count * sizeof(DWORD)); |
col_left = (DWORD*)allocmem(col_count * sizeof(DWORD)); |
row_top = (DWORD*)allocmem(row_count * sizeof(DWORD)); |
for (i = 0; i < col_count; i++) |
{ |
col_width[i] = def_col_width; |
} |
for (i = 0; i < row_count; i++) |
{ |
row_height[i] = def_row_height; |
} |
cells = (char***)allocmem(col_count * sizeof(char**)); |
values = (char***)allocmem(col_count * sizeof(char**)); |
for (i = 0; i < col_count; i++) |
{ |
cells[i] = (char**)allocmem(row_count * sizeof(char*)); |
values[i] = (char**)allocmem(row_count * sizeof(char*)); |
for (j = 0; j < row_count; j++) |
{ |
cells[i][j] = NULL; |
if (i == 0 && j) |
{ |
cells[i][j] = make_row_cap(j); |
} |
else if (j == 0 && i) |
{ |
cells[i][j] = make_col_cap(i); |
} |
} |
} |
} |
void reinit() |
{ |
int i, j; |
for (i = 0; i < col_count; i++) |
{ |
col_width[i] = def_col_width; |
} |
for (i = 0; i < row_count; i++) |
{ |
row_height[i] = def_row_height; |
} |
for (i = 1; i < col_count; i++) |
{ |
for (j = 1; j < row_count; j++) |
{ |
if (cells[i][j]) |
freemem(cells[i][j]); |
cells[i][j] = NULL; |
if (values[i][j]) |
freemem(values[i][j]); |
values[i][j] = NULL; |
} |
} |
} |
void fill_cells(int sel_x, int sel_y, int sel_end_x, int sel_end_y, int old_end_x, int old_end_y) |
{ |
// èòàê, (sel_x, sel_y) :: (old_end_x, old_end_y) - èñòî÷íèê |
// ðåçóëüòàò õðàíèòñÿ ëèáî â ñòðîêå sel_x .. sel_end_x, ëèáî â ñòîëáöå sel_y .. sel_end_y |
int i, start, end, step, gdir = -1; |
int pdir = -1; |
char *source; |
cf_x0 = cf_y0 = 0; |
cf_x1 = col_count; |
cf_y1 = row_count; |
if (sel_end_x == -1) |
sel_end_x = sel_x; |
if (sel_end_y == -1) |
sel_end_y = sel_y; |
// åñëè íàïðàâëåíèÿ âûäåëåíèé ïåðïåíäèêóëÿðíû, òî ïðîñòî â öèêëå ïîâòîðÿåì òî æå, ÷òî äëÿ 1 ÿ÷åéêè: |
if (old_end_x == sel_end_x && sel_y == old_end_y) |
{ |
gdir = 0; |
} |
else if (old_end_y == sel_end_y && sel_x == old_end_x) |
{ |
gdir = 1; |
} |
//sprintf(debuf, "fuck in ass %U %U %U %U %U %U dir %U",sel_x,sel_y,sel_end_x,sel_end_y,old_end_x,old_end_y,gdir); |
//rtlDebugOutString(debuf); |
if (gdir != -1) |
{ |
int gstep = gdir ? sign(old_end_y - sel_y) : sign(old_end_x - sel_x); |
if (gstep == 0) |
{ |
/* if (gdir) |
{ |
//old_end_y += 1; |
} |
else |
{ |
//old_end_x += 1; |
} |
*/ |
gstep = 1; |
} |
for (;gdir ? (sel_y != old_end_y + gstep) : (sel_x != old_end_x + gstep); |
gdir ? (sel_y += gstep) : (sel_x += gstep)) |
{ |
//sprintf(debuf, "cycle %U %U %U %U %U %U dir %U",sel_x,sel_y,sel_end_x,sel_end_y,old_end_x,old_end_y,gdir); |
//rtlDebugOutString(debuf); |
int dir; |
source = cells[sel_x][sel_y]; |
if (gdir == 0) |
{ |
start = sel_y; |
end = sel_end_y; |
step = (sel_y < sel_end_y ? 1 : -1); |
dir = 1; |
} |
else |
{ |
start = sel_x; |
end = sel_end_x; |
step = (sel_x < sel_end_x ? 1 : -1); |
dir = 0; |
} |
//sprintf(debuf, "cyc %U %U %U %U",start,end,step,dir); |
//rtlDebugOutString(debuf); |
for (i = start + step; i != end + step; i += step) |
{ |
//char **p = &cells[dir ? sel_x : i][dir ? i : sel_end_y]; |
//sprintf(debuf, "to %U %U dir %U copying '%S'",dir ? sel_x : i,dir ? i : sel_y,dir,source); |
//rtlDebugOutString(debuf); |
if (cells[dir ? sel_x : i][dir ? i : sel_y]) |
{ |
freemem(cells[dir ? sel_x : i][dir ? i : sel_y]); |
} |
if (source) |
{ |
cells[dir ? sel_x : i][dir ? i : sel_y] = change_formula(source, dir ? 0 : (i - start), dir ? (i - start) : 0); |
//cells[dir ? sel_x : i][dir ? i : sel_y] = (char *)allocmem(strlen(source) + 1); |
//strcpy(cells[dir ? sel_x : i][dir ? i : sel_y], source); |
} |
else |
cells[dir ? sel_x : i][dir ? i : sel_y] = NULL; |
} |
} |
} |
// à âîò åñëè ïàðàëëåëüíû... |
/* |
if (sel_x == sel_end_x && sel_x == old_end_x) |
{ |
pdir = 0; |
} |
if (sel_y == sel_end_y && sel_y == old_end_y) |
{ |
pdir = 1; |
} |
if (pdir != -1) |
{ |
// àðèôìåòè÷åñêàÿ ïðîãðåññèÿ - åñëè ÷èñëà. è òóïî ðàçìíîæèòüò ïîñëåäíåå, åñëè íåò |
sprintf(debuf, "maybe arith dir %U", pdir); |
rtlDebugOutString(debuf); |
int is_arith = 1; |
int gstep = pdir ? sign(old_end_y - sel_y) : sign(old_end_x - sel_x); |
if (gstep == 0) |
gstep = 1; |
for (int i = pdir ? sel_y : sel_x; i != pdir ? (old_end_y + gstep) : (old_end_x + gstep); i++) |
{ |
convert_error = 0; |
sprintf(debuf,"cell %U %U", !pdir ? sel_x : i, !pdir ? i : sel_y); |
rtlDebugOutString(debuf); |
if (cells[!pdir ? sel_x : i][!pdir ? i : sel_y]) |
{ |
double d = atof(cells[!pdir ? sel_x : i][!pdir ? i : sel_y]); |
if (convert_error) |
{ |
rtlDebugOutString("failed arith"); |
is_arith = 0; |
break; |
} |
} |
else |
{ |
is_arith = 0; |
rtlDebugOutString("failed arith in null"); |
break; |
} |
} |
double arith_first, arith_step; |
if (is_arith) |
{ |
rtlDebugOutString("really arith"); |
arith_first = atof(cells[sel_x][sel_y]); |
arith_step = atof(cells[pdir ? sel_x : old_end_x][pdir ? sel_y : old_end_y]) - arith_first; |
arith_first += arith_step * pdir ? abs(sel_end_x - old_end_x) : abs(sel_end_y - old_end_y); |
} |
else |
rtlDebugOutString("none arith"); |
// ñîáñòâåííî çàïîëíåíèå |
for (i = pdir ? old_end_y : old_end_x; i != pdir ? (sel_end_y + gstep) : (sel_end_x + gstep); i++) |
{ |
if (cells[pdir ? sel_x : i][pdir ? i : sel_y]) |
freemem(cells[pdir ? sel_x : i][pdir ? i : sel_y]); |
if (is_arith) |
{ |
cells[pdir ? sel_x : i][pdir ? i : sel_y] = ftoa(arith_first); |
arith_first += arith_step; |
} |
else |
{ |
if (cells[sel_x][sel_y]) |
{ |
cells[pdir ? sel_x : i][pdir ? i : sel_y] = (char*)allocmem(strlen(cells[sel_x][sel_y]) + 1); |
strcpy(cells[pdir ? sel_x : i][pdir ? i : sel_y], cells[sel_x][sel_y]); |
} |
} |
} |
} |
*/ |
calculate_values(); |
} |
const char *csv_name = ".csv"; |
int str_is_csv(char *str) |
{ |
int i, j = 0; |
for (i = 0; i < strlen(str); i++) |
{ |
if (str[i] == csv_name[j]) |
{ |
j++; |
if (j == strlen(csv_name)) |
return 1; |
} |
else |
{ |
j = 0; |
} |
} |
return 0; |
} |
int Kos_FileWrite(kosFileInfo &fileInfo, char *line, int mode = 3) // åñëè mode = 2 - ïåðåçàïèñàòü ôàéë |
{ |
int res = 0; |
fileInfo.dataCount = strlen(line); |
fileInfo.bufferPtr = (Byte*)line; |
fileInfo.rwMode = mode; |
res = kos_FileSystemAccess(&fileInfo); |
if (res != 0) |
return 0; |
fileInfo.OffsetLow += fileInfo.dataCount; |
return 1; |
} |
int SaveCSV(char *fname) |
{ |
int i, j; |
int min_col = col_count, min_row = row_count, max_row = -1, max_col = -1; |
int first = 1; |
kosFileInfo fileInfo; |
memset((Byte*)&fileInfo, 0, sizeof(fileInfo)); |
strcpy(fileInfo.fileURL,fname); |
fileInfo.OffsetLow = 0; |
fileInfo.OffsetHigh = 0; |
fileInfo.rwMode = 8; // delete |
rtlDebugOutString("savecsv: old file deleted"); |
for (i = 1; i < col_count; i++) |
{ |
for (j = 1; j < row_count; j++) |
{ |
if (cells[i][j]) |
{ |
min_col = min(min_col, i); |
min_row = min(min_row, j); |
max_col = max(max_col, i); |
max_row = max(max_row, j); |
} |
} |
} |
sprintf(debuf, "col %U %U row", min_col, max_col, min_row, max_row); |
rtlDebugOutString(debuf); |
for (j = min_row; j <= max_row; j++) |
{ |
char buffer[1024]; // íå íàäî òàê äåëàòü |
int buf_len = 0; |
memset((Byte*)buffer, 0, 1024); |
for (i = min_col; i <= max_col; i++) |
{ |
char *cur = values[i][j] ? values[i][j] : cells[i][j]; |
if (cur) |
{ |
buffer[buf_len++] = '\"'; |
for (int k = 0; k < strlen(cur); k++) |
{ |
if (cur[k] == '\"') |
buffer[buf_len++] = '\"'; // êàâû÷åê - ïî äâå |
buffer[buf_len++] = cur[k]; |
} |
buffer[buf_len++] = '\"'; |
} |
buffer[buf_len++] = ';'; |
} |
rtlDebugOutString(buffer); |
// î÷åðåäíàÿ ñòðîêà òåïåðü â áóôåðå |
buffer[buf_len++] = '\n'; |
if (!Kos_FileWrite(fileInfo, buffer, first ? (first = 0, 2) : 3)) |
return 0; |
} |
return 1; |
} |
#define BUF_FOR_ALL 5000 |
int SaveFile(char *fname) |
{ |
kosFileInfo fileInfo; |
char *buffer = (char*)allocmem(BUF_FOR_ALL); // óæàñ! íî ïîêà ÷òî äîñòàòî÷íî |
int filePointer = 0; |
int i,j; |
Dword res; |
if (str_is_csv(fname)) |
return SaveCSV(fname); |
//rtlDebugOutString(fname); |
memset((Byte*)&fileInfo, 0, sizeof(fileInfo)); |
strcpy(fileInfo.fileURL,fname); |
fileInfo.OffsetLow = 0; |
fileInfo.OffsetHigh = 0; |
fileInfo.rwMode = 8; |
res = kos_FileSystemAccess(&fileInfo); // óäàëèòü |
fileInfo.dataCount = strlen(sFileSign); |
fileInfo.bufferPtr = (Byte*)sFileSign; |
fileInfo.rwMode = 2; |
res = kos_FileSystemAccess(&fileInfo); |
if (res != 0) |
return 0; |
//sprintf(debuf, "create %U",res); |
//rtlDebugOutString(debuf); |
fileInfo.OffsetLow += fileInfo.dataCount; |
// øèðèíó ñòîëáöîâ ñîõðàíÿåì |
memset((Byte*)buffer,0,BUF_FOR_ALL); |
for (i = 1; i < col_count; i++) |
{ |
char smalbuf[32]; |
memset((Byte*)smalbuf,0,32); |
sprintf(smalbuf, "%U,", col_width[i]); |
strcpy(buffer+strlen(buffer),smalbuf); |
} |
buffer[strlen(buffer)-1] = '\n'; // çàìåíèëè ïîñëåäíþþ çàïÿòóþ íà ïåðåâîä ñòðîêè |
//rtlDebugOutString(buffer); |
fileInfo.dataCount = strlen(buffer); |
fileInfo.bufferPtr = (Byte*)buffer; |
fileInfo.rwMode = 3; |
res = kos_FileSystemAccess(&fileInfo); |
if (res != 0) |
return 0; |
// ïåðåìîòàòü çàáûë ÿ ýòîò ôàéë |
// íî óæ òåïåðü íå ïîïàäóñü íà ýòî! |
fileInfo.OffsetLow += fileInfo.dataCount; |
// âûñîòó ñòðîê ñîõðàíÿåì â ôàéëå ìû |
memset((Byte*)buffer,0,BUF_FOR_ALL); |
for (i = 1; i < row_count; i++) |
{ |
char smalbuf[32]; |
memset((Byte*)smalbuf,0,32); |
sprintf(smalbuf, "%U,", row_height[i]); |
strcpy(buffer+strlen(buffer),smalbuf); |
} |
buffer[strlen(buffer)-1] = '\n'; // çàìåíèëè ïîñëåäíþþ çàïÿòóþ íà ïåðåâîä ñòðîêè |
//rtlDebugOutString(buffer); |
fileInfo.dataCount = strlen(buffer); |
fileInfo.bufferPtr = (Byte*)buffer; |
fileInfo.rwMode = 3; |
res = kos_FileSystemAccess(&fileInfo); |
if (res != 0) |
return 0; |
// è âíîâü ïåðåìîòàþ ÿ ñåé ôàéë |
fileInfo.OffsetLow += fileInfo.dataCount; |
memset((Byte*)buffer,0,BUF_FOR_ALL); |
// ñîõðàíèëè ïàðàìåòðû ÿ÷ååê ìû, ñîõðàíÿåì ñîäåðæèìîå èõ òåïåðü |
for (i = 1; i < row_count; i++) |
{ |
for (j = 1; j < col_count; j++) |
if (cells[j][i]) |
{ |
memset((Byte*)buffer,0,512); |
sprintf(buffer, "%U %U:%S\n", j, i, cells[j][i]); |
fileInfo.dataCount = strlen(buffer); |
fileInfo.bufferPtr = (Byte*)buffer; |
fileInfo.rwMode = 3; |
res = kos_FileSystemAccess(&fileInfo); |
if (res != 0) |
return 0; |
//sprintf(debuf, "create %U",res); |
//rtlDebugOutString(debuf); |
fileInfo.OffsetLow += fileInfo.dataCount; |
} |
} |
//rtlDebugOutString("saving finished"); |
freemem(buffer); |
return 1; |
} |
char *Kos_FileRead(kosFileInfo &fileInfo, int &code) |
{ |
char buffer[512], *p, *r; |
fileInfo.dataCount = 512; |
fileInfo.rwMode = 0; |
fileInfo.bufferPtr = (Byte *)buffer; |
memset((Byte*)buffer, 0, 512); |
int z = kos_FileSystemAccess(&fileInfo); |
code = z; |
//sprintf(debuf, "kos file read %U", code); |
//rtlDebugOutString(debuf); |
if (z != 0 && z != 6) |
return NULL; |
p = buffer; |
while (*p && *p++ != '\n'); |
if (p == buffer) |
return NULL; |
r = (char*)allocmem(p - buffer); |
memset((Byte*)r, 0, p - buffer); |
//strncpy(r, buffer, p - buffer); |
for (int l = 0; l < p - buffer - 1; l++) |
r[l] = buffer[l]; |
fileInfo.OffsetLow += p - buffer; |
return r; |
} |
int LoadCSV(char *fname) |
{ |
// clear the table |
reinit(); |
kosFileInfo fileInfo; |
strcpy(fileInfo.fileURL,fname); |
fileInfo.OffsetLow = 0; |
fileInfo.OffsetHigh = 0; |
char *line; |
int col = 1, row = 1; |
int code = 0; |
do |
{ |
line = Kos_FileRead(fileInfo, code); |
if (!line || *line == '\0' || (code != 0 && code != 6)) |
{ |
sprintf(debuf, "read end, line not null = %U, code = %U", !line, code); |
rtlDebugOutString(debuf); |
break; |
} |
sprintf(debuf, "read '%S' len %U", line, strlen(line)); |
rtlDebugOutString(debuf); |
// ðàçáîðàòü ñòðîêó |
// âûäåëèòü ;, ïðè÷åì âíå " |
int i = 0; |
while (i <= strlen(line)) |
{ |
int inPar = 0; |
// inPar: 0 - íå êàâû÷êè, 1 - òîëüêî ÷òî áûëà êàâû÷êà, 2 - êàâû÷êà áûëà, íî äàâíî |
int start = i; |
while (i <= strlen(line)) |
{ |
char c = line[i]; |
if (!c) |
c = ';'; |
int yes_semicolon = 0; |
switch (inPar) |
{ |
case 0: |
if (c == '\"') |
{ |
inPar = 1; |
} |
else |
{ |
if (c == ';') |
yes_semicolon = 1; |
} |
break; |
case 1: |
inPar = 2; |
break; |
case 2: |
if (c == '\"') // îíà çàêðûëàñü |
{ |
inPar = 0; |
} |
/*else |
{ |
if (c == ';') |
yes_semicolon = 1; |
}*/ |
break; |
} |
if (yes_semicolon) |
{ |
// èòàê, line[i] = ';' |
int tmp = line[start] == '"' ? 1 : 0; |
int sz = i - start - tmp * 2; |
if (sz > 0) |
{ |
cells[col][row] = (char *)allocmem(sz + 1); |
memset((Byte*)cells[col][row], 0, sz + 1); |
int m = 0; |
for (int l = 0; l < sz; l++) |
{ |
if (line[start + tmp + l] == '\"') |
{ |
cells[col][row][m++] = '\"'; |
l++; // ïðîïóñòèòü ñëåäóþùóþ êàâû÷êó |
} |
else |
cells[col][row][m++] = line[start + tmp + l]; |
} |
sprintf(debuf, "set %U %U = '%S'", col, row, cells[col][row]); |
rtlDebugOutString(debuf); |
} |
start = i + 1; |
col++; |
} |
i++; |
} |
row++; |
col = 1; |
i++; |
} |
} while(line); |
return 1; |
} |
int LoadFile(char *fname) |
{ |
kosFileInfo fileInfo; |
kosBDVK bdvk; |
int filePointer = 0, i, j; |
Dword res, filesize; |
char buffer[512 + 1]; |
char *d, *s, *k; |
int step = 0, items; |
if (str_is_csv(fname)) |
return LoadCSV(fname); |
//rtlDebugOutString(fname); |
strcpy(fileInfo.fileURL,fname); |
fileInfo.OffsetLow = 0; |
fileInfo.OffsetHigh = 0; |
fileInfo.rwMode = 5; |
fileInfo.bufferPtr = (Byte *)&bdvk; |
Dword rr = kos_FileSystemAccess(&fileInfo); // â CKosFile íåò îïðåäåëåíèÿ ðàçìåðà |
//sprintf(debuf, "getsize: %U\n", rr); |
//rtlDebugOutString(debuf); |
if (rr != 0) |
{ |
return -1; |
} |
// clear the table |
reinit(); |
//rtlDebugOutString("clear done"); |
filesize = bdvk.size_low; |
fileInfo.rwMode = 0; |
fileInfo.dataCount = strlen(sFileSign); |
fileInfo.bufferPtr = (Byte*)buffer; |
kos_FileSystemAccess(&fileInfo); |
s = (char*)sFileSign; |
d = buffer; |
while (*s && *d && *s++==*d++); // çàñòðåëèòå ìåíÿ |
if (*s != '\0' || *d != '\0') |
{ |
return -2; |
} |
fileInfo.OffsetLow += fileInfo.dataCount; |
items = 1; |
while (fileInfo.OffsetLow < filesize) |
{ |
// òàê ïðî÷èòàëè ëè ìû øèðèíó âñåõ ñòîáëöîâ, è äëèíó âñåõ ñòðîê ïðî÷èòàëè ëè ìû? |
fileInfo.dataCount = 512; |
memset((Byte*)buffer, 0, 512); |
kos_FileSystemAccess(&fileInfo); |
//sprintf(debuf, "%U", fileInfo.OffsetLow); |
//rtlDebugOutString(debuf); |
//sprintf(debuf, "buffer: %S", buffer); |
//rtlDebugOutString(debuf); |
// ÷òî ÿ óâèæó íà äîñêå îòëàäêè |
// òî ìíå ïîìîæåò â æèçíåííîì ïóòè |
// ñìîãó òîãäà ñâîåé îøèáêè ãàäêîé |
// ïðè÷èíó íåïîñðåäñòâåííî íàéòè |
switch (step) |
{ |
case 0: // ñòîáëöû |
d = buffer; |
while (*d && *d != ',' && *d != '\n') d++; |
//d--; |
if (!*d) |
{ |
return -2; |
} |
*d = '\0'; |
i = atoi(buffer); |
col_width[items++] = i; |
if (items == col_count) |
{ |
step++; |
items = 1; // òåïåðü âûñîòû ñòðîê ÷èòàòü ìû áóäåì ñìåëî |
// ÷òîá èõ âîññòàíîâèòü è áûëî êàê âñåãäà |
//sprintf(debuf, "cols read done last buf %S file pos %U",buffer,fileInfo.OffsetLow); |
//rtlDebugOutString(debuf); |
} |
d+=2; |
break; |
case 1: // ñòðîêè, êîèõ âûñîòà çàïèñàíà |
d = buffer; |
while (*d && *d != ',' && *d != '\n') d++; |
//d--; |
if (!*d) |
{ |
//sprintf(debuf,"oh shit, error at %U",items); |
//rtlDebugOutString(debuf); |
return -2; |
} |
*d = '\0'; |
i = atoi(buffer); |
row_height[items++] = i; |
/*if (items > 5) |
{ |
sprintf(debuf, "set row from %S hei %U %U",buffer,items-1,i); |
rtlDebugOutString(debuf); |
}*/ |
if (items == row_count) |
{ |
step++; // à äàëåå ëåæàò ÿ÷åéêè â ôàéëå |
// çàïèñàíû îíè â êðèâîì ôîðìàòå |
// èáî ïèñàë ñåé êîä ÿ òåìíîé íî÷üþ |
// íî íå êóðèë òðàâû, êëÿíóñü ÿ âàì |
// èíà÷å áû è ýòîãî íå ñêîäèë |
// äåáàæèòü ñåé ìíå êîä ïðåìíîãî âïàäëó |
// íî ïîìíþ ïðàâèëî - êîëü íàïèñàë äåáàæü |
// íåìåäëåííî - à òî íàõ âñå çàáóäåøü. |
// âîò âûïüþ - à òàì ñðàçó çà îòëàäêó. |
//sprintf(debuf, "before read cells offset %U %X",fileInfo.OffsetLow,fileInfo.OffsetLow); |
//rtlDebugOutString(debuf); |
} |
d+=2; |
break; |
// î, áðÿêè ÿ çàáûë çàáèòü. î óæàñ. |
// ïîçîð ìíå, íà êîñòðå ìåíÿ ñîæãèòå |
// âåäü òîò, êòî break íå ñòàâèò ïîñëå casa |
// ïîäîáåí ëàìåðó, ÷òî ñè íå çíàåò |
// ñìîãó ëè ÿ òàêîå ïåðåæèòü? |
case 2: // ÿ÷åéêè, èáî èõ ñîäåðæèìîå ñîõðàíåíî çäåñü îò èñ÷åçíîâåíèÿ |
d = buffer; |
while (*d && *d++ != ' '); // îóææàñ. çà÷åì òîëüêî ÿ ïèñàë ýòîò áðåä.... |
d--; |
if (!*d) |
{ |
return -2; |
} |
*d = '\0'; |
i = atoi(buffer); |
d++; |
s=d; |
while (*d && *d++ != ':'); // êîãäà-òî ÿ óäèâëÿëñÿ, êàê ëþäè ìîãóò òàêóþ õåðíþ ïèñàòü... äîæèë |
d--; |
if (!*d) |
{ |
return -2; |
} |
*d = '\0'; |
j = atoi(s); |
//rtlDebugOutString(s); |
d++; |
k = d; |
while (*d && *d++ != '\n'); |
d--; |
*d = '\0'; |
d+=2; |
//sprintf(debuf, "i:%U j:%U d:%S\n",i,j,k); |
//rtlDebugOutString(debuf); |
cells[i][j] = (char*)allocmem(strlen(k) + 1); |
//memset(cells[i][j], 0, strlen(k) + 1); |
strcpy(cells[i][j], k); |
//sprintf(debuf, "offset: %U", fileInfo.OffsetLow); |
//rtlDebugOutString(debuf); |
} |
fileInfo.OffsetLow += d - (char*)buffer - 1; |
} |
//rtlDebugOutString("loading finished"); |
return 1; |
} |
// î÷èñòèòü áóôåð îáìåíà |
void freeBuffer() |
{ |
int i, j; |
if (!buffer) |
return; |
for (i = 0; i < buf_col; i++) |
{ |
for (j = 0; j < buf_row; j++) |
if (buffer[i][j]) |
freemem(buffer[i][j]); |
freemem(buffer[i]); |
} |
freemem(buffer); |
buffer = NULL; |
buf_row = buf_col = 0; |
} |
// äàëåå - âû÷èñëåíèå ïî ôîðìóëàì |
int abort_calc = 0; |
cell_list *last_dep; |
// ïïö, ãäå òî áàã, à ýòî òèïà ôèêñ |
//#define allocmem2(x) allocmem(x+1000) |
double calc_callback(char *str) |
{ |
int i,j,x,y; |
if (abort_calc == 1) |
return 0.0; |
//rtlDebugOutString(str); |
if (*str == '$') str++; |
for (i = 0; i < strlen(str); i++) |
if (str[i] >= '0' && str[i] <= '9') |
break; |
if (str[i-1] == '$') |
i--; |
if (i == strlen(str)) |
{ |
abort_calc = 1; |
serror(ERR_BADVARIABLE); |
return 0.0; |
} |
x = -1; |
for (j = 0; j < col_count; j++) |
// if (strnicmp(str,cells[j][0],i-1)==0) |
if (str[0] == cells[j][0][0] && ((i == 1) || (str[1] == cells[j][0][1]))) |
{ |
x = j; |
break; |
} |
if (str[i] == '$') |
i++; |
y = -1; |
for (j = 0; j < row_count; j++) |
if (strcmp(str+i,cells[0][j])==0) |
{ |
y = j; |
break; |
} |
if (x == -1 || y == -1) |
{ |
abort_calc = 1; |
serror(ERR_BADVARIABLE); |
return 0.0; |
} |
double hold; |
if (values[x][y]) |
if (values[x][y][0] == '#') |
{ |
serror(ERR_BADVARIABLE); |
abort_calc = 1; |
} |
else |
{ |
hold = atof(values[x][y]); |
//if (convert_error) // íåðåàëüíûé ñëó÷àé... |
//{ |
// serror(ERR_BADVARIABLE); |
// abort_calc = 1; |
//} |
} |
else |
{ |
if (cells[x][y]) |
{ |
hold = atof(cells[x][y]); |
if (convert_error == ERROR || convert_error == ERROR_END) |
{ |
serror(ERR_BADVARIABLE); |
abort_calc = 1; |
} |
} |
else |
{ |
sprintf(debuf, "bad var %S", str); |
rtlDebugOutString(debuf); |
serror(ERR_BADVARIABLE); |
abort_calc = 1; |
} |
} |
return hold; |
} |
double depend_callback(char *str) |
{ |
cell_list *cur; |
// íàäî âûäðàòü èç ÀÂ47 çíà÷åíèÿ õ è ó. |
int i,j,x,y; |
if (abort_calc == 1) |
return 0.0; |
if (*str == '$') str++; |
for (i = 0; i < strlen(str); i++) |
if (str[i] >= '0' && str[i] <= '9') |
break; |
if (str[i-1] == '$') |
i--; |
if (i == strlen(str)) |
{ |
abort_calc = 1; |
serror(ERR_BADVARIABLE); |
return 0.0; |
} |
x = -1; |
for (j = 1; j < col_count; j++) |
//if (strncmp(str,cells[j][0],i)==0) |
if (str[0] == cells[j][0][0] && ((i == 1) || (str[1] == cells[j][0][1]))) |
{ |
x = j; |
break; |
} |
if (str[i] == '$') |
i++; |
y = -1; |
for (j = 1; j < row_count; j++) |
if (strcmp(str+i,cells[0][j])==0) |
{ |
y = j; |
break; |
} |
if (x == -1 || y == -1) |
{ |
abort_calc = 1; |
serror(ERR_BADVARIABLE); |
return 0.0; |
} |
cur = (cell_list*)allocmem(sizeof(cell_list)); |
cur->x = x; |
cur->y = y; |
cur->next = last_dep; |
last_dep = cur; |
return 0.0; |
} |
cell_list *find_depend(char *str) |
{ |
double hold; |
last_dep = NULL; |
find_var = &depend_callback; |
set_exp(str); |
get_exp(&hold); |
return last_dep; |
} |
bool is_in_list(cell_list *c1, cell_list *c2) |
{ |
cell_list *p = c2; |
while (p) |
{ |
if (c1->x == p->x && c1->y == p->y) |
return 1; |
p = p->next; |
} |
return 0; |
} |
void calculate_values() |
{ |
cell_list ***depend = NULL; |
cell_list *first = NULL; |
cell_list *sorted = NULL, *sorted_last = NULL; |
cell_list *p = NULL; |
int i,j; |
//rtlDebugOutString("calc"); |
abort_calc = 0; |
depend = (cell_list***)allocmem(col_count * sizeof(void*)); |
for (i = 0; i < col_count; i++) |
{ |
depend[i] = (cell_list**)allocmem(row_count * sizeof(void*)); |
for (j = 0; j < row_count; j++) |
{ |
if (values[i][j]) |
freemem(values[i][j]); |
values[i][j] = NULL; |
if (cells[i][j] && cells[i][j][0] == '=') |
{ |
depend[i][j] = find_depend(cells[i][j] + 1); // ïîñëå = |
if (abort_calc) |
{ |
values[i][j] = (char*)allocmem(2); |
values[i][j][0] = '#'; |
values[i][j][1] = '\0'; |
abort_calc = 0; |
continue; |
} |
cell_list *cur; |
cur = (cell_list*)allocmem(sizeof(cell_list)); |
cur->x = i; |
cur->y = j; |
cur->next = first; // âñòàâèëè òåê. ÿ÷åéêó â íà÷àëî ñïèñêà ÿ÷ååê ñ ôîðìóëàìè |
first = cur; |
} |
} |
} |
//rtlDebugOutString("depend end"); |
// òîïîëîãè÷åñêàÿ ñîðòèðîâêà |
if (!first) |
goto free_memory; |
if (abort_calc) |
goto free_memory; |
while (first) |
{ |
// íàéòè íàèìåíüøèé ýëåìåíò. åñëè åãî íåò - îøèáêà, ò.ê. öèêëè÷åñêàÿ çàâèñèìîñòü |
cell_list *prev = NULL,*min = first; |
bool is_min; |
while (min) |
{ |
cell_list *p = first; |
is_min = 1; |
while (p && is_min) |
{ |
if (is_in_list(p,depend[min->x][min->y])) |
is_min = 0; |
p = p->next; |
} |
if (is_min) |
break; |
prev = min; |
min = min->next; |
} |
if (!is_min) |
{ |
abort_calc = 1; |
goto free_memory; // âñå ïëîõî. óæàñíî. ÿ ïëàêàþ, íî ïèøó goto |
} |
// íàäî óáðàòü ìèíèìóì âî âòîðîé ñïèñîê |
if (prev == NULL) |
{ |
first = first->next; |
} |
else |
{ |
prev->next = min->next; |
} |
/* |
min->next = sorted; |
sorted = min; |
*/ |
if (sorted == NULL) |
{ |
sorted = min; |
sorted_last = min; |
} |
else |
{ |
sorted_last->next = min; |
sorted_last = min; |
min->next = NULL; |
} |
} |
// âû÷èñëåíèå çíà÷åíèé |
//rtlDebugOutString("sort end"); |
p = sorted; |
while (p) |
{ |
double d; |
abort_calc = 0; |
set_exp(cells[p->x][p->y]+1); // âñå ÷òî ïîñëå "=" |
find_var = &calc_callback; |
if (get_exp(&d)) |
{ |
char *new_val = ftoa(d); |
if (values[p->x][p->y] && strcmp(values[p->x][p->y],new_val) == 0) |
{ |
freemem(new_val); |
} |
else |
{ |
if (values[p->x][p->y]) |
freemem(values[p->x][p->y]); |
values[p->x][p->y] = new_val; |
sel_moved = 0; |
} |
//sprintf(debuf,"calc %U %U formula %S result %f",p->x,p->y,cells[p->x][p->y]+1,d); |
//rtlDebugOutString(debuf); |
} |
else |
{ |
values[p->x][p->y] = (char*)allocmem(2); |
values[p->x][p->y][0] = '#'; |
values[p->x][p->y][1] = '\0'; |
//sprintf(debuf,"calc %U %U formula %S result #",p->x,p->y,cells[p->x][p->y]+1); |
//rtlDebugOutString(debuf); |
} |
p = p->next; |
} |
if (abort_calc) |
goto free_memory; |
//rtlDebugOutString("calc end"); |
// îñâîáîæäåíèå ïàìÿòè |
free_memory: |
p = sorted; |
while (p) |
{ |
cell_list *tmp = p->next; |
cell_list *pp = depend[p->x][p->y]; |
while (pp) |
{ |
cell_list *tmp = pp->next; |
freemem(pp); |
pp = tmp; |
} |
freemem(p); |
p = tmp; |
} |
for (i = 0; i < col_count; i++) |
freemem(depend[i]); |
freemem(depend); |
//rtlDebugOutString("freemem end"); |
} |
int parse_cell_name(char *str, int *px, int *py, int *xd, int *yd) |
{ |
// íàäî âûäðàòü èç ÀÂ47 çíà÷åíèÿ õ è ó. |
int i,j,x,y,dx = 0,dy = 0; |
if (*str == '$') |
{ |
str++; |
dx = 1; |
} |
for (i = 0; i < strlen(str); i++) |
if (str[i] >= '0' && str[i] <= '9') |
break; |
if (str[i-1] == '$') |
{ |
i--; |
dy = 1; |
} |
if (i == strlen(str)) |
{ |
return 0; |
} |
x = -1; |
for (j = 1; j < col_count; j++) |
if (strncmp(str,cells[j][0],i)==0) |
{ |
/*int p = 0, z = 1; |
for (p = 0; p < i; p++) |
if (!str[p] || str[p] != cells[j][0][p]) |
{ |
z = 0; |
break; |
} |
if (z) |
*/ |
{ |
x = j; |
break; |
} |
} |
if (str[i] == '$') |
i++; |
y = -1; |
for (j = 1; j < row_count; j++) |
if (strcmp(str+i,cells[0][j])==0) |
{ |
/* |
int p = 0, z = 1; |
for (p = 0;; p++) |
{ |
if (str[i + p] != cells[0][j][p]) |
{ |
z = 0; |
break; |
} |
if (cells[0][j][p] == '\0') |
break; |
} |
if (z) |
*/ |
{ |
y = j; |
break; |
} |
} |
if (x == -1 || y == -1) |
{ |
return 0; |
} |
*px = x; |
*py = y; |
if (xd) |
*xd = dx; |
if (yd) |
*yd = dy; |
return 1; |
} |
char *make_cell_name(int x, int y, int xd, int yd) |
{ |
char *col_cap = make_col_cap(x); |
char *row_cap = make_row_cap(y); |
if (x <= 0 || x > col_count || y <= 0 || y > row_count) |
return NULL; |
char *res = (char*)allocmem(strlen(col_cap) + strlen(row_cap) + xd ? 1 : 0 + yd ? 1 : 0 + 1); |
int i = 0; |
if (xd) |
{ |
res[i] = '$'; |
i++; |
} |
strcpy(res + i, col_cap); |
i += strlen(col_cap); |
if (yd) |
{ |
res[i] = '$'; |
i++; |
} |
strcpy(res + i, row_cap); |
i += strlen(row_cap); |
res[i] = '\0'; |
freemem(col_cap); |
freemem(row_cap); |
return res; |
} |
// çàìåíû ññûëêè íà îäíó ÿ÷åéêó |
char *change_cell_ref(char *name, int sx, int sy) |
{ |
int x0, y0, xd, yd; |
parse_cell_name(name, &x0, &y0, &xd, &yd); |
//sprintf(debuf, "parsed cell name %S to %U %U", name, x0, y0); |
//rtlDebugOutString(debuf); |
// ó íàñ åñòü õ0 è ó0. |
//sprintf(debuf, "%U in %U %U, %U in %U %U",x0, cf_x0, cf_x1, y0, cf_y0, cf_y1); |
//rtlDebugOutString(debuf); |
if (x0 >= cf_x0 && x0 <= cf_x1 && y0 >= cf_y0 && y0 <= cf_y1) |
{ |
if (!xd) |
{ |
x0 += sx; |
if (x0 <= 0 || x0 > col_count) |
x0 -= sx; |
} |
if (!yd) |
{ |
y0 += sy; |
if (y0 <= 0 || y0 > row_count) |
y0 -= sy; |
} |
} |
return make_cell_name(x0, y0, xd, yd); |
} |
// çàìåíà âñåõ ññûëîê íà ÿ÷åéêè |
char *change_formula(char *name, int sx, int sy) |
{ |
int i = 0; |
int in_name = 0; // 1 - ÷èòàåì áóêâåííóþ ÷àñòü. 2 - ÷èòàåì öèôðîâóþ. 0 - ÷èòàåì ðàçäåëèòåëè è ò.ä. |
int alp_len = 0, dig_len = 0; |
int buf_i = 0; |
char buffer[256]; // î÷åíü ïëîõî |
memset((Byte*)buffer, 0, 256); |
//sprintf(debuf, "change formula %S by %U %U", name, sx, sy); |
//rtlDebugOutString(debuf); |
while (i < strlen(name) + 1) |
{ |
char c; |
if (i == strlen(name)) |
c = ' '; |
else |
c = name[i]; |
buffer[buf_i++] = c; |
switch (in_name) |
{ |
case 0: |
{ |
if (isalpha2(c) || c == '$') |
{ |
in_name = 1; |
alp_len = 1; |
dig_len = 0; |
} |
} |
break; |
case 1: |
{ |
if (isalpha2(c)) |
{ |
alp_len++; |
} |
else if (c == '$' || isdigit(c)) |
{ |
in_name = 2; |
dig_len++; |
} |
else |
{ |
// íåçàâåðøåííîå èìÿ ÿ÷åéêè - íå èìÿ |
in_name = 0; |
alp_len = dig_len = 0; |
} |
} |
break; |
case 2: |
{ |
if (isdigit(c)) |
{ |
dig_len++; |
} |
else |
{ |
if (alp_len > 0 && dig_len > 0) |
{ |
// âîò íîðìàëüíàÿ ÿ÷åéêà |
int idx = i - alp_len - dig_len; |
int len = alp_len + dig_len; |
char *cell = (char*)allocmem(len + 1); |
//strncpy(cell, name + i, alp_len + dig_len); |
for (int l = 0; l < len; l++) |
cell[l] = name[idx + l]; |
cell[len] = '\0'; |
//sprintf(debuf, "found cell name '%S' alp %U dig %U", cell, alp_len, dig_len); |
//rtlDebugOutString(debuf); |
char *cell_new = change_cell_ref(cell, sx, sy); |
//sprintf(debuf, "rename to '%S'", cell_new); |
//rtlDebugOutString(debuf); |
if (cell_new) |
{ |
char cc = buffer[buf_i - 1]; |
strcpy(buffer + buf_i - len - 1, cell_new); |
buf_i += strlen(cell_new) - len; |
buffer[buf_i - 1] = cc; |
} |
//freemem(cell); |
//freemem(cell_new); |
alp_len = dig_len = 0; |
in_name = 0; |
} |
} |
} |
} |
i++; |
} |
//sprintf(debuf, "change formula done"); |
//rtlDebugOutString(debuf); |
char *res = (char*)allocmem(strlen(buffer) + 1); |
strcpy(res, buffer); |
return res; |
} |
/programs/other/table/calc.h |
---|
0,0 → 1,24 |
#pragma once |
#include "KosSyst.h" |
extern int cf_x0, cf_x1, cf_y0, cf_y1; |
void calculate_values(); |
int get_x(int x); |
int get_y(int y); |
char *make_col_cap(int i); |
char *make_row_cap(int i); |
void init(); |
void reinit(); |
int SaveFile(char *fname); |
int LoadFile(char *fname); |
int SaveCSV(char *fname); |
int LoadCSV(char *fname); |
void fill_cells(int sel_x, int sel_y, int sel_end_x, int sel_end_y, int old_end_x, int old_end_y); |
int parse_cell_name(char *str, int *px, int *py, int *xd = NULL, int *yd = NULL); |
char *make_cell_name(int x, int y, int xd, int yd); |
char *change_formula(char *name, int sx, int sy); |
void freeBuffer(); |
/programs/other/table/func.cpp |
---|
0,0 → 1,510 |
#include "func.h" |
int convert_error = 0; |
int SysColor = 0; |
char debuf[50] = ""; |
// ïî÷åìó-òî íå áûëî â ñòàíäàðòíîé áèáëèîòåêå |
void kos_DrawLine( Word x1, Word y1, Word x2, Word y2, Dword colour, Dword invert ) |
{ |
Dword arg1, arg2, arg3; |
// |
arg1 = ( x1 << 16 ) | x2; |
arg2 = ( y1 << 16 ) | y2; |
arg3 = (invert)?0x01000000:colour; |
// |
__asm{ |
mov eax, 38 |
mov ebx, arg1 |
mov ecx, arg2 |
mov edx, arg3 |
int 0x40 |
} |
} |
// ïîõèùåíî èç áèáëèîòåêè ê C-- |
void DrawRegion(Dword x,Dword y,Dword width,Dword height,Dword color1) |
{ |
kos_DrawBar(x,y,width,1,color1); //ïîëîñà ãîð ñâåðõó |
kos_DrawBar(x,y+height,width,1,color1); //ïîëîñà ãîð ñíèçó |
kos_DrawBar(x,y,1,height,color1); //ïîëîñà âåðò ñëåâà |
kos_DrawBar(x+width,y,1,height+1,color1); //ïîëîñà âåðò ñïðàâà |
} |
// äà, ýòî áàÿí |
int atoi(const char* string) |
{ |
int res=0; |
int sign=0; |
const char* ptr; |
for (ptr=string; *ptr && *ptr<=' ';ptr++); |
if (*ptr=='-') {sign=1;++ptr;} |
while (*ptr >= '0' && *ptr <= '9') |
{ |
res = res*10 + *ptr++ - '0'; |
} |
if (sign) res = -res; |
return res; |
} |
/*int abs(int n) |
{ |
return (n<0)?-n:n; |
}*/ |
double fabs(double x) |
{ |
__asm fld x |
__asm fabs |
} |
#define M_PI 3.14159265358979323846 |
double cos(double x) |
{ |
__asm fld x |
__asm fcos |
} |
double sin(double x) |
{ |
__asm fld x |
__asm fsin |
} |
bool isalpha(char c) |
{ |
return (c==' ' || c=='\n' || c=='\t' || c=='\r'); |
} |
// ýòà ôóíêöèÿ - âåëîñèïåä. íî ïðîùå áûëî íàïèñàòü ÷åì íàéòè. |
double convert(char *s, int *len) |
{ |
int i; |
double sign,res, tail, div; |
convert_error = 0; |
res = 0.0; |
i=0; |
while (s[i] && isalpha(s[i])) i++; |
if (len) *len=i; |
if (s[i] == '\0') |
{ |
convert_error = ERROR_END; |
return 0.0; |
} |
sign=1.0; |
if (s[i] == '-') |
{ |
sign=-1.0; |
i++; |
} |
while (s[i] && s[i] >= '0' && s[i] <= '9') |
{ |
res *= 10.0; |
res += id(s[i] - '0'); |
i++; |
} |
if (len) *len=i; |
if (!s[i] || isalpha(s[i])) |
return sign*res; |
if (s[i] != '.' && s[i] != ',') |
{ |
convert_error = ERROR; |
return 0; |
} |
i++; |
if (len) *len=i; |
if (!s[i]) |
return sign*res; |
div = 1.0; |
tail = 0.0; |
while (s[i] && s[i] >= '0' && s[i] <= '9') |
{ |
tail *= 10.0; |
tail += id(s[i] - '0'); |
div *= 10.0; |
i++; |
} |
res += tail/div; |
if (len) *len=i; |
return sign*res; |
} |
/* |
#define PREC 2 |
double double_tab[]={1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15}; |
// ýòî sprintf, óìåþùèé ôîðìàòèðîâàòü _òîëüêî_ âåùåñòâåííûå ÷èñëà (double) %f |
void format( char *Str, int len, char* Format, ... ) |
{ |
int i, fmtlinesize, j, k, flag; |
char c; |
va_list arglist; |
// |
va_start(arglist, Format); |
// |
fmtlinesize = strlen( Format ); |
// |
if( fmtlinesize == 0 ) return; |
for (i = 0; i < len; i++) |
Str[i] = 0; |
// |
for( i = 0, j = 0; i < fmtlinesize; i++ ) |
{ |
// |
c = Format[i]; |
// |
if( c != '%' ) |
{ |
Str[j++] = c; |
continue; |
} |
// |
i++; |
// |
if( i >= fmtlinesize ) break; |
// |
flag = 0; |
// |
c = Format[i]; |
// |
switch( c ) |
{ |
// |
case '%': |
Str[j++] = c; |
break; |
// auaia aauanoaaiiiai ?enea |
case 'f': |
// ii?aaaeeou ?enei oeo? ai oi?ee |
double val, w; |
int p; |
val = va_arg(arglist, double); |
if (val < 0.0) |
{ |
Str[j++] = '-'; |
val = -val; |
} |
for (k = 0; k < 15; k++) |
if (val < double_tab[k]) |
break; |
if (val < 1.0) |
{ |
Str[j++] = '0'; |
} |
for (p = 1; p < k + 1; p++) |
{ |
Str[j++] = '0' + di(val / double_tab[k - p] - 0.499) % 10; |
} |
Str[j++] = '.'; |
w = 0.1; |
for (p = 0; p < 2; p++) |
{ |
val-=floor(val); |
Str[j++] = '0' + di(val / w - 0.499) % 10; |
w /= 10.0; |
} |
// |
default: |
break; |
} |
} |
// |
Str[j] = 0; |
} |
void *memcpy(void *dst, const void *src, unsigned size) |
{ |
while (size--) |
*((char*)dst+size) = *((char*)src+size); |
return dst; |
} |
*/ |
int strcmp(const char *s1, const char *s2) |
{ |
int i; |
if (s1 == NULL) |
if (s2 == NULL) |
return 0; |
else |
return 1; |
else |
if (s2 == NULL) |
return 1; |
for (i = 0;;i++) |
{ |
if (s1[i] == '\0') |
if (s2[i] == '\0') |
return 0; |
else |
return 1; |
else |
if (s2[i] == '\0') |
return 1; |
else |
{ |
if (s1[i] != s2[i]) |
return 1; |
} |
} |
return 0; |
} |
kol_struct_import* kol_cofflib_load(char *name) |
{ |
//asm ("int $0x40"::"a"(68), "b"(19), "c"(name)); |
__asm |
{ |
mov eax, 68 |
mov ebx, 19 |
mov ecx, name |
int 0x40 |
} |
} |
void* kol_cofflib_procload (kol_struct_import *imp, char *name) |
{ |
int i; |
for (i=0;;i++) |
if ( NULL == ((imp+i) -> name)) |
break; |
else |
if ( 0 == strcmp(name, (imp+i)->name) ) |
return (imp+i)->data; |
return NULL; |
} |
unsigned kol_cofflib_procnum (kol_struct_import *imp) |
{ |
unsigned i, n; |
for (i=n=0;;i++) |
if ( NULL == ((imp+i) -> name)) |
break; |
else |
n++; |
return n; |
} |
void kol_cofflib_procname (kol_struct_import *imp, char *name, unsigned n) |
{ |
unsigned i; |
*name = 0; |
for (i=0;;i++) |
if ( NULL == ((imp+i) -> name)) |
break; |
else |
if ( i == n ) |
{ |
strcpy(name, ((imp+i)->name)); |
break; |
} |
} |
/* |
end of system part |
*/ |
// ïîñêîëüêó ÿ ïîðòèðîâàë ñ äðåâíåãî äîñà... |
void line( int x1, int y1, int x2, int y2) |
{ |
kos_DrawLine(x1,y1,x2,y2,SysColor,0); |
} |
void outtextxy( int x, int y, char *s, int len) |
{ |
kos_WriteTextToWindow(x,y,0,SysColor,s,len); |
} |
double textwidth( char *s, int len) |
{ |
int i; |
for (i = 0; i < len; i++) |
if (s[i] == 0) |
break; |
return id(i * 6); |
} |
double textheight( char *s, int len) |
{ |
return 8.0; |
} |
void setcolor( DWORD color) |
{ |
SysColor = color; |
} |
void rectangle( int x1, int y1, int x2, int y2) |
{ |
kos_DrawBar(x1,y1,x2-x1,y2-y1,SysColor); |
} |
Dword kos_GetSkinHeight() |
{ |
__asm{ |
mov eax, 48 |
mov ebx, 4 |
int 0x40 |
} |
} |
Dword kos_GetSpecialKeyState() |
{ |
__asm{ |
mov eax, 66 |
mov ebx, 3 |
int 0x40 |
} |
} |
Dword kos_GetSlotByPID(Dword PID) |
{ |
__asm |
{ |
push ebx |
push ecx |
mov eax, 18 |
mov ebx, 21 |
mov ecx, PID |
int 0x40 |
pop ecx |
pop ebx |
} |
} |
Dword kos_GetActiveSlot() |
{ |
__asm |
{ |
push ebx |
mov eax, 18 |
mov ebx, 7 |
int 0x40 |
pop ebx |
} |
} |
void kos_GetScrollInfo(int &vert, int &hor) |
{ |
short v, h; |
__asm |
{ |
mov eax, 37 |
mov ebx, 7 |
int 0x40 |
mov ebx, eax |
and eax, 0xffff |
mov v, ax |
shr ebx, 16 |
mov h, bx |
} |
vert = v; |
hor = h; |
} |
// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" ôóíêöèÿ 37/1 |
void kos_GetMouseStateWnd( Dword & buttons, int & cursorX, int & cursorY ) |
{ |
Dword mB; |
Word curX; |
Word curY; |
sProcessInfo sPI; |
// |
__asm{ |
mov eax, 37 |
mov ebx, 1 |
int 0x40 |
mov curY, ax |
shr eax, 16 |
mov curX, ax |
mov eax, 37 |
mov ebx, 2 |
int 0x40 |
mov mB, eax |
} |
// |
kos_ProcessInfo( &sPI ); |
// |
buttons = mB; |
cursorX = curX - sPI.processInfo.x_start; |
cursorY = curY - sPI.processInfo.y_start; |
} |
char *ftoa(double d) |
{ |
char buffer[256], *p; |
sprintf(buffer, "%f", d); |
p = (char*)allocmem(strlen(buffer)+1); |
strcpy(p, buffer); |
return p; |
} |
double atof(char *s) |
{ |
return convert(s, NULL); |
} |
int di(double x) |
{ |
int a; |
__asm fld x |
__asm fistp a |
return a; |
} |
double id(int x) |
{ |
double a; |
__asm fild x |
__asm fstp a |
return a; |
} |
/programs/other/table/func.h |
---|
0,0 → 1,131 |
#pragma once |
#include "kosSyst.h" |
#include "kosFile.h" |
#include "MCSMEMM.H" |
#include <stdarg.h> |
#define min(a,b) (((a)<(b))?(a):(b)) |
#define max(a,b) (((a)>(b))?(a):(b)) |
#define ERROR -1 |
#define ERROR_END -2 |
extern int convert_error; |
#define PREC 2 |
typedef int HDC; |
typedef int DWORD; |
extern int SysColor; |
extern char debuf[50]; |
typedef double (*function_t)(double); |
typedef struct |
{ |
double x, y; |
} TCoord; |
struct kosBDVK |
{ |
Dword attrib; |
Dword name_type; |
Dword create_time; |
Dword create_date; |
Dword access_time; |
Dword access_date; |
Dword modify_time; |
Dword modify_date; |
Dword size_low; |
Dword size_high; |
}; |
Dword kos_GetSlotByPID(Dword PID); |
Dword kos_GetActiveSlot(); |
Dword kos_GetSkinHeight(); |
Dword kos_GetSpecialKeyState(); |
void kos_GetMouseStateWnd( Dword & buttons, int & cursorX, int & cursorY ); |
void kos_DrawLine( Word x1, Word y1, Word x2, Word y2, Dword colour, Dword invert); |
void DrawRegion(Dword x,Dword y,Dword width,Dword height,Dword color1); |
int atoi(const char* string); |
void kos_GetScrollInfo(int &vert, int &hor); |
Dword kos_GetSlotByPID(Dword PID); |
Dword kos_GetActiveSlot(); |
Dword kos_GetSkinHeight(); |
Dword kos_GetSpecialKeyState(); |
double fabs(double x); |
double cos(double x); |
double sin(double x); |
bool isalpha(char c); |
double convert(char *s, int *len=NULL); |
void format( char *Str, int len, char* Format, ... ); |
void line( int x1, int y1, int x2, int y2); |
void outtextxy( int x, int y, char *s, int len); |
void settextstyle( int a1, int a2, int a3); |
double textwidth( char *s, int len); |
double textheight( char *s, int len); |
void setcolor( DWORD color); |
void unsetcolor(HDC hdc); |
void rectangle( int x1, int y1, int x2, int y2); |
typedef struct |
{ |
unsigned p00 ; |
unsigned p04 ; |
unsigned p08 ; |
unsigned p12 ; |
unsigned p16 ; |
char p20 ; |
char *p21 ; |
} kol_struct70 ; |
typedef struct |
{ |
unsigned p00 ; |
char p04 ; |
char p05[3] ; |
unsigned p08 ; |
unsigned p12 ; |
unsigned p16 ; |
unsigned p20 ; |
unsigned p24 ; |
unsigned p28 ; |
unsigned p32[2] ; |
unsigned p40 ; |
} kol_struct_BDVK ; |
typedef struct |
{ |
char *name ; |
void *data ; |
} kol_struct_import ; |
kol_struct_import* kol_cofflib_load(char *name); |
void* kol_cofflib_procload (kol_struct_import *imp, char *name); |
unsigned kol_cofflib_procnum (kol_struct_import *imp); |
void kol_cofflib_procname (kol_struct_import *imp, char *name, unsigned n); |
int strcmp(const char* string1, const char* string2); |
char *ftoa(double d); |
double atof(char *s); |
int di(double x); |
double id(int x); |
/programs/other/table/hello.cpp |
---|
0,0 → 1,1498 |
#include "func.h" |
#include "parser.h" |
#include "calc.h" |
#include "use_library.h" |
///#include "use_library.h" |
//const char header[] = "Table"; |
#define TABLE_VERSION "0.94a" |
// ñòðîêè, êîòîðûå âûâîäèò ïðîãðàììà |
const char *sFileSign = "KolibriTable File\n"; |
const char sFilename[] = "Filename: "; |
const char sSave[] = "Save"; |
const char sLoad[] = "Load"; |
const char sNew[] = "New"; |
const char er_file_not_found[] = "Cannot open file. "; |
const char er_format[] = "Error: bad format. "; |
const char msg_save[] = "File saved. "; |
const char msg_load[] = "File loaded. "; |
const char msg_new[] = "Memory cleared. "; |
// ñâîé PID |
Dword myPID = -1; |
// íà÷àëüíûå ðàçìåðû |
#define WND_W 550 |
#define WND_H 400 |
// íîâûå ðàçìåðû è êîîðäèíàòû |
int wi = WND_W, he = WND_H; |
int win_x, win_y; |
// öâåòà ýëåìåíòîâ èíòåðôåéñà |
#define GRID_COLOR 0xa0a0a0 |
#define TEXT_COLOR 0x000000 |
#define CELL_COLOR 0xffffff |
#define SEL_CELL_COLOR 0xe0e0ff |
#define FIXED_CELL_COLOR 0xe0e0ff |
#define SEL_FIXED_CELL_COLOR 0x758FC1 |
#define TEXT_SEL_FIXED_COLOR 0xffffff |
#define SCROLL_BAR_WIDTH 16 |
#define SCROLL_BAR_HEIGHT 16 |
// ID êíîïîê |
#define FILENAME_BUTTON 0x10 |
#define SAVE_BUTTON 0x11 |
#define LOAD_BUTTON 0x12 |
#define NEW_BUTTON 0x13 |
#define DRAG_BUTTON 0x20 |
#define SCROLL_LEFT_BUTTON 0x21 |
#define SCROLL_RIGHT_BUTTON 0x22 |
#define SCROLL_UP_BUTTON 0x23 |
#define SCROLL_DOWN_BUTTON 0x24 |
#define SCROLL_WIDTH 0x25 |
#define SCROLL_HEIGHT 0x26 |
#define COL_BUTTON 0x100 |
#define ROW_BUTTON (COL_BUTTON + 0x100) |
#define COL_HEAD_BUTTON (ROW_BUTTON + 0x100) |
#define ROW_HEAD_BUTTON (COL_HEAD_BUTTON + 0x100) |
#define CELL_BUTTON (ROW_HEAD_BUTTON + 0x100) |
// íèæíÿÿ ïàíåëü ñ êíîïêàìè è ïîëåì ââîäà |
#define MENU_PANEL_HEIGHT 40 |
Dword panel_y = 0; |
// äëÿ ïîëÿ ââîäà |
char edit_text[256] = ""; |
edit_box cell_box = {0,9*8-5,WND_H - 16-32,0xffffff,0x6a9480,0,0x808080,0,255,(dword)&edit_text,0}; |
// ÿ÷åéêè - èõ ïàðàìåòðû è òåêñò |
DWORD def_col_width = 80, def_row_height = 16; |
DWORD col_count = 200, row_count = 100; |
DWORD *col_width, *row_height; |
char ***cells; |
char ***values; // çíà÷åíèÿ ôîðìóë, åñëè åñòü |
bool display_formulas = 0; // îòîáðàæàòü ëè ôîðìóëû âìåñòî çíà÷åíèé |
// êîîðäèíàòû îòîáðàæàåìûõ ñòîëáöîâ è ñòðîê |
DWORD *col_left, *row_top; |
// áóôåð îáìåíà |
char ***buffer = NULL; |
DWORD buf_col, buf_row; |
DWORD buf_old_x, buf_old_y; |
// ýòî êîîðäèíàòû ÿ÷åéêè, îòîáðàæàåìîé â Ë óãëå |
DWORD scroll_x = 1, scroll_y = 1; |
// ýòî âûäåëåííàÿ ÿ÷åéêà |
DWORD sel_x = 1, sel_y = 1; |
DWORD prev_x = 0, prev_y = 0; // ïðåäûäóùàÿ âûäåëåííàÿ |
int was_single_selection = 0; |
// êîíåö âûäåëåíèÿ åñëè âûäåëåíî íåñêîëüêî ÿ÷ååê |
DWORD sel_end_x = sel_x, sel_end_y = sel_y; |
// ôëàã |
bool sel_moved = 0; |
bool sel_end_move = 0; |
// ñêîëüêî ÿ÷ååê ïîìåùàåòñÿ â îêíå ïî õ è ó |
DWORD nx = 0, ny = 0; |
// ôëàã ðåàäêòèðîâàíèÿ ÿ÷åéêè |
//bool is_edit = 0; |
#define ed_focus 2 |
#define is_edit (cell_box.flags & ed_focus) |
// ðåäàêòèðîâàíèå èìåíè ôàéëà |
bool fn_edit = 0; |
char fname[256]; |
edit_box file_box = {0,9*8-5,WND_H - 16-32,0xffffff,0x6a9480,0,0x808080,0,255,(dword)&fname,0}; |
// èçìåíåíèå ðàçìåðîâ |
#define SIZE_X 1 // ñîñòîÿíèå |
#define SIZE_Y 2 |
#define SIZE_SELECT 3 |
#define SIZE_DRAG 4 |
int size_mouse_x, size_mouse_y, size_id, size_state = 0; |
// ðàñòàñêèâàíèå ÿ÷åéêè ïðè åå òàùåíèè çà ïðàâûé íèæíèé óãîë, ñ çàïîëíåíèåì ÿ÷ååê |
int drag_x, drag_y; |
int old_end_x, old_end_y; |
void draw_window(); |
//edit_box ebox = {250,14,35,0xffffff,0x6f9480,0,0xAABBCC,0,248,0,2,20,20}; |
void kos_DrawRegion(Word x, Word y,Word width, Word height, Dword color1, Word invert) |
{ |
kos_DrawLine(x,y,x+width-2,y,color1,invert); |
kos_DrawLine(x,y+1,x,y+height-1,color1,invert); |
kos_DrawLine(x+width-1,y,x+width-1,y+height-2,color1,invert); |
kos_DrawLine(x+1,y+height-1,x+width-1,y+height-1,color1,invert); |
} |
// edit box |
/* |
void KEdit() |
{ |
int max_char = (editbox_w) / 6; |
kos_DrawBar(editbox_x,editbox_y,editbox_w-1,editbox_h-3,0xFFFFFF); //áåëàÿ îáëàñòü |
if (strlen(edit_text)<max_char) |
kos_WriteTextToWindow(editbox_x, editbox_y+editbox_h / 2-5,0x80,0,edit_text,0); //editbox_h/2+ âìåñòî +3 |
else |
kos_WriteTextToWindow(editbox_x, editbox_y+editbox_h / 2-5,0x80,0,edit_text+strlen(edit_text)-max_char+1,0); //text 'path' |
} |
*/ |
void start_edit(int x, int y) |
{ |
int ch = 0; |
if (x < scroll_x || x > nx - 1) |
{ |
scroll_x = x; |
ch = 1; |
} |
if (y < scroll_y || y > ny - 1) |
{ |
scroll_y = y; |
ch = 1; |
} |
if (ch) |
{ |
sel_moved = 1; |
draw_window(); |
} |
file_box.flags &= ~ed_focus; |
cell_box.flags |= ed_focus; |
cell_box.left = col_left[x] + 1; |
cell_box.top = row_top[y] + 1; |
cell_box.width = col_width[x] - 2; |
//cell_box.height= row_height[y]; |
memset((Byte*)edit_text, 0, sizeof(edit_text)); |
if (cells[x][y]) |
{ |
strcpy(edit_text, cells[x][y]); |
edit_text[strlen(cells[x][y]) - 1] = '\0'; |
} |
cell_box.pos = cell_box.offset = 0; |
draw_window(); |
} |
void stop_edit() |
{ |
if (is_edit) |
{ |
cell_box.flags &= ~ed_focus; |
if (cells[sel_x][sel_y]) |
freemem(cells[sel_x][sel_y]); |
if (strlen(edit_text) > 0) |
{ |
cells[sel_x][sel_y] = (char*)allocmem(strlen(edit_text)+1); |
strcpy(cells[sel_x][sel_y], edit_text); |
} |
else |
cells[sel_x][sel_y] = NULL; |
//memset((Byte*)edit_text,0, 256); |
calculate_values(); |
} |
else |
return; |
} |
void cancel_edit() |
{ |
if (!is_edit) |
return; |
cell_box.flags &= ~ed_focus; |
memset((Byte*)edit_text,0, 256); |
draw_window(); |
} |
void check_sel() |
{ |
DWORD sx0=scroll_x, sy0=scroll_y; |
if (sel_x >= nx - 1 /*&& sel_x < col_count - nx + scroll_x + 1*/) |
//if (sel_x == nx) |
scroll_x++; |
//else |
// scroll_x = sel_x; |
if (sel_y >= ny - 1 /*&& sel_y < row_count - ny + scroll_y */) |
//if (sel_y == ny) |
scroll_y++; |
//else |
// scroll_y = sel_y; |
if (sel_x < scroll_x) |
scroll_x = sel_x; |
if (sel_y < scroll_y) |
scroll_y = sel_y; |
if (sx0 != scroll_x || sy0 != scroll_y) |
sel_moved = 0; // íàäî ïåðåðèñîâàòü âñå |
} |
// ñäâèíóòü âûäåëåíèå |
void move_sel(DWORD new_x, DWORD new_y) |
{ |
sel_moved = 1; |
stop_edit(); |
prev_x = sel_x; |
prev_y = sel_y; |
sel_x = new_x; |
if (sel_x < 1) |
sel_x = 1; |
if (sel_x > col_count - 1) |
sel_x = col_count - 1; |
sel_end_x = sel_x; |
sel_y = new_y; |
if (sel_y < 1) |
sel_y = 1; |
if (sel_y > row_count - 1) |
sel_y = row_count - 1; |
sel_end_y = sel_y; |
check_sel(); |
draw_window(); |
} |
void draw_custom_button(int x0, int y0, int sx, int sy, int blue_border) |
{ |
int x1 = x0 + sx; |
int y1 = y0 + sy; |
if (blue_border) kos_DrawRegion(x0-1, y0-1, sx+3, sy+3, 0x94aece, 0); |
// ñåðûé ïðÿìîóãîëüíèê |
kos_DrawBar(x0 + 1, y0 + 1, sx - 1, sy - 1, 0xe4dfe1); |
// äâå áåëûå ëèíèè: ñâåðõó è ñëåâà |
kos_DrawLine(x0, y0, x1, y0, 0xffffff, 0); |
kos_DrawLine(x0, y0, x0, y1, 0xffffff, 0); |
// äâå ñåðûå ëèíèè: ñíèçó è ñïðàâà |
kos_DrawLine(x0, y1, x1, y1, 0xc7c7c7, 0); |
kos_DrawLine(x1, y0, x1, y1, 0xc7c7c7, 0); |
} |
// x - ìåæäó low è high ? - íåîáÿçàòåëüíî low<high |
bool is_between(Dword x, Dword low, Dword high) |
{ |
return ((low<high)?(x >= low && x <= high):(x >= high && x <= low)); |
} |
void clear_cell_slow(int px, int py) |
{ |
int i; |
int x0 = col_width[0]; |
for (i = scroll_x; i < px; i++) |
{ |
x0 += col_width[i]; |
} |
int x1 = x0; |
x1 += col_width[px]; |
int y0 = row_height[0]; |
for (i = scroll_y; i < py; i++) |
{ |
y0 += row_height[i]; |
} |
int y1 = y0; |
y1 += row_height[py]; |
kos_DrawBar(x0 + 1, y0 + 1, x1 - x0 - 1, y1 - y0 - 1, 0xffffff); |
} |
//debug |
const int debugcolor[10]={0xff0000,0x00ff00,0x0000ff,0xffff00,0x00ffff,0xff00ff,0x800000,0x008000,0x000080,0x800080}; |
int debugc=0; |
// ðèñîâàíèå ÿ÷ååê |
#define is_x_changed(v) ((v) == sel_x || (v) == prev_x) |
#define is_y_changed(v) ((v) == sel_y || (v) == prev_y) |
void draw_grid() |
{ |
int i,j; |
long x0 = 0, y0 = 0, x = 0, y = 0, dx, popravka; |
DWORD text_color; |
//int lx, ly; |
// sprintf(debuf, "%U,%U", scroll_x, scroll_y); |
// rtlDebugOutString(debuf); |
nx=ny=0; |
// î÷èñòèòü îáëàñòü îêîëî âûäåëåííîé ÿ÷åéêè |
if (sel_moved) |
{ |
clear_cell_slow(sel_x, sel_y); |
clear_cell_slow(prev_x, prev_y); |
} |
else |
{ |
// î÷èñòèòü âñþ îáëàñòü ÿ÷ååê |
//kos_DrawBar(col_width[0]+1, row_height[0]+1, wi - SCROLL_BAR_WIDTH-col_width[0]-1, he - SCROLL_BAR_HEIGHT-row_height[0]-1, 0xffffff); |
} |
col_left[0] = 0; |
// ÿ÷åéêè - çàãîëîâêè ñòîëáöîâ + âåðòèêàëüíûå ëèíèè |
x = col_width[0]; |
nx = 1; |
for (i = 1; i < col_count; i++) |
{ |
col_left[i] = -1; |
if (i >= scroll_x) |
{ |
{ |
if (!sel_moved || is_x_changed(i)) |
kos_DrawLine(x-x0, 0, x-x0, row_height[0], GRID_COLOR, 0); |
// è çàãîëîâîê ÿ÷åéêè ïî õ |
text_color = TEXT_COLOR; |
dx = (col_width[i]-6)/2; |
int dy = (row_height[0] - 8) / 2 + 1; |
int cur_width = col_width[i] - 1; |
if (cur_width + x - x0 > wi - SCROLL_BAR_WIDTH) |
cur_width = wi - SCROLL_BAR_WIDTH - x + x0; |
if (!sel_moved || (is_x_changed(i))) |
if (is_between(i,sel_x,sel_end_x)) |
{ |
kos_DrawBar(x - x0 + 1,0,cur_width,row_height[0],SEL_FIXED_CELL_COLOR); //0x0000CC |
text_color = TEXT_SEL_FIXED_COLOR; |
} |
else |
{ |
kos_DrawBar(x - x0 + 1,0,cur_width,row_height[0],FIXED_CELL_COLOR); |
text_color = TEXT_COLOR; |
} |
if (!sel_moved || (is_x_changed(i))) kos_WriteTextToWindow(x-x0+2+dx,dy,0,text_color,cells[i][0],strlen(cells[i][0])); |
// åñòü êíîïêà ñòîáëöà è åùå êíîïêà èçìåíåíèÿ øèðèíû |
if (x - x0 + col_width[i] <= wi - col_width[0]) |
kos_DefineButton(x-x0+5,0,cur_width - 10,row_height[0]-1,0x60000000+COL_HEAD_BUTTON+i,0); |
//kos_DefineButton(x-x0+col_width[i]-10,0,15,row_height[0]-1,0x60000000+COL_SIZE_BUTTON+i,0); |
col_left[i] = x - x0; |
} |
if (x - x0 > wi - col_width[0]) |
{ |
x += col_width[i]; |
nx++; |
break; |
} |
} |
else |
{ |
x0 += col_width[i]; |
} |
x += col_width[i]; |
nx++; |
} |
//kos_DefineButton(0,0,0,0,0x80000000+COL_HEAD_BUTTON+i,0); |
for (j = i + 1; j < col_count; j++) |
col_left[j] = wi; |
//if (!sel_moved || (is_x_changed(nx))) kos_DrawLine(x - x0, 0, x - x0, he, GRID_COLOR, 0); |
// ÿ÷åéêè - çàãîëîâêè ñòðîê + ãîðèçîíò. ëèíèè |
y = row_height[0]; |
ny = 1; |
row_top[0] = 0; |
for (i = 1; i < row_count && y - y0 < he - 10; i++) |
{ |
row_top[i] = -1; |
if (i >= scroll_y) |
{ |
{ |
if (!sel_moved || (is_y_changed(i))) |
kos_DrawLine(0, y - y0, wi - SCROLL_BAR_WIDTH, y - y0, GRID_COLOR, 0); |
// è çàãîëîâîê ÿ÷åéêè ïî y |
text_color = TEXT_COLOR; |
dx = (col_width[0]-6 * strlen(cells[0][i]))/2; // optimize this, change strlen |
int dy = (row_height[i] - 8) / 2 + 1; |
if (!sel_moved || (is_y_changed(i))) |
if (is_between(i,sel_y,sel_end_y)) |
{ |
kos_DrawBar(0,y-y0+1,col_width[0],row_height[i] - 1,SEL_FIXED_CELL_COLOR); |
text_color = TEXT_SEL_FIXED_COLOR; |
} |
else |
{ |
kos_DrawBar(0,y-y0+1,col_width[0],row_height[i] - 1,FIXED_CELL_COLOR); |
text_color = TEXT_COLOR; |
} |
if (!sel_moved || (is_y_changed(i))) |
kos_WriteTextToWindow(2+dx,y-y0+dy,0,text_color,cells[0][i],strlen(cells[0][i])); |
kos_DefineButton(0,y-y0+5,col_width[0]-1,row_height[i]-6,0x60000000+ROW_HEAD_BUTTON+i,0); |
//kos_DefineButton(0,y-y0+row_height[i]-5,col_width[0]-1,10,0x60000000+ROW_SIZE_BUTTON+i,0); |
row_top[i] = y - y0; |
} |
} |
else |
{ |
y0 += row_height[i]; |
} |
y += row_height[i]; |
ny++; |
} |
kos_DefineButton(0,0,0,0,0x80000000+ROW_HEAD_BUTTON+ny-1,0); |
for (j = i + 1; j < row_count; j++) |
row_top[j] = he; |
if (!sel_moved || (is_y_changed(ny))) |
kos_DrawLine(0, y - y0, wi - SCROLL_BAR_WIDTH, y - y0, GRID_COLOR, 0); |
if (!sel_moved || (is_x_changed(0) && is_y_changed(0))) |
kos_DrawBar(0,0,col_width[0],row_height[0],FIXED_CELL_COLOR); |
// Ë ÿ÷åéêà |
//sprintf(debuf, "%U, %U; %U, %U", x0, y0, nx, ny); |
//rtlDebugOutString(debuf); |
// popravka = (y - y0 < he - 10); |
//sprintf(debuf, "%U, %U", scroll_y, ny); |
//rtlDebugOutString(debuf); |
// ñàìè ÿ÷åéêè |
y = row_height[0]; |
for (i = scroll_y; i < ny; i++) |
{ |
x = col_width[0]; |
if (!sel_moved) |
kos_DrawBar(col_width[0]+1, y+1, wi - SCROLL_BAR_WIDTH-col_width[0]-1, row_height[i]-1, 0xffffff); |
for (j = scroll_x; j < nx-1; j++) |
{ |
if (!sel_moved || is_x_changed(j) || is_y_changed(i)) |
kos_DrawLine(col_left[j], row_top[i], col_left[j], row_height[i], GRID_COLOR, 0); |
// çàãîëîâêè óæå íàðèñîâàíû - ïðîïóñêàåì èõ |
if (i && j) |
{ |
//kos_DrawBar(x+1, y+1, col_width[i]-1, row_height[i]-1, 0xffffff); |
//rtlDebugOutString(cap); |
//if (j >= sel_x && j <= sel_end_x && i >= sel_y && i <= sel_end_y) |
if (is_between(j,sel_x,sel_end_x) && is_between(i, sel_y, sel_end_y) // (j,i) - âûäåëåíà |
&& ((!sel_moved) || (is_x_changed(j) && is_y_changed(i)))) // è åå íóæíî íàðèñîâàòü |
{ |
if (i == sel_y && j == sel_x) // ðàìêà |
{ |
kos_DrawBar(x,y,col_width[j],2,TEXT_COLOR); // up |
kos_DrawBar(x,y,2,row_height[i],TEXT_COLOR); // left |
kos_DrawBar(x,y+row_height[i]-2,col_width[j]-2-3,2,TEXT_COLOR); // bottom |
kos_DrawBar(x+col_width[j]-2,y, 2,row_height[i]-2-3,TEXT_COLOR); // right |
kos_DrawBar(x+col_width[j]-4,y+row_height[i]-4,4,4,TEXT_COLOR); |
//kos_DefineButton(x+col_width[j]-2,y+row_height[i]-2,4,4,0x60000000+DRAG_BUTTON,0x000000); |
drag_x = x + col_width[j] - 4; |
drag_y = y + row_height[i] - 4; |
} |
else |
kos_DrawBar(x + 1,y + 1,col_width[j] - 2,row_height[i] - 2,SEL_CELL_COLOR); // âûäåëåíà íî íå îñíîâíàÿ(ñåðàÿ) |
} |
//kos_DefineButton(x,y,col_width[j]-1,row_height[i]-1,0x60000000+CELL_BUTTON+((i << 8) + j),0); |
char *text; |
if (values[j][i] && values[j][i][0] == '#') |
{ |
text = cells[j][i]; |
kos_DrawRegion(x+1, y+1, col_width[j]-1, row_height[i]-1, 0xff0000, 0); |
} |
else |
text = (values[j][i] && !display_formulas ? values[j][i] : cells[j][i]); |
int dy = (row_height[i] - 8) / 2 + 1; |
if (text) |
if (strlen(text) < col_width[j]/6) |
kos_WriteTextToWindow(x+2,y+dy,0,text_color,text,strlen(text)); |
else |
kos_WriteTextToWindow(x+2,y+dy,0,text_color,text,col_width[j]/6); |
} |
if (!sel_moved || is_x_changed(j) || is_y_changed(i)) |
kos_DrawLine(col_left[j]+col_width[j], row_top[i], col_left[j]+col_width[j], row_height[i], GRID_COLOR, 0); |
x += col_width[j]; |
} |
y += row_height[i]; |
} |
// Scrolls: |
// horizontal |
//if (!sel_moved) kos_DrawBar(0, he - SCROLL_BAR_HEIGHT, wi - SCROLL_BAR_WIDTH, SCROLL_BAR_HEIGHT, FIXED_CELL_COLOR); |
//if (!sel_moved) kos_DrawBar(scroll_x * wi / col_count, he - SCROLL_BAR_HEIGHT, wi / col_count, SCROLL_BAR_HEIGHT, SEL_FIXED_CELL_COLOR); |
if (!sel_moved) |
{ |
// ãîðèçîíòàëü |
kos_DrawBar(17, he - SCROLL_BAR_HEIGHT, wi - SCROLL_BAR_WIDTH - 32, SCROLL_BAR_HEIGHT, 0xced0d0); |
// ñèíèå ëèíèè |
kos_DrawRegion(0, he - SCROLL_BAR_HEIGHT, wi - SCROLL_BAR_WIDTH, SCROLL_BAR_HEIGHT+1, 0x94aece, 0); |
// ëåâàÿ êíîïêà |
draw_custom_button(1, he - SCROLL_BAR_HEIGHT + 1, 14, 14, 1); |
kos_WriteTextToWindow(6, he - SCROLL_BAR_HEIGHT + 5, 0, 0, "\x1B", 1); |
// ïðàâàÿ |
draw_custom_button(wi - SCROLL_BAR_WIDTH * 2 + 1, he - SCROLL_BAR_HEIGHT + 1, 14, 14, 1); |
kos_WriteTextToWindow(wi - SCROLL_BAR_WIDTH * 2 + 6, he - SCROLL_BAR_HEIGHT + 5, 0, 0, "\x1A", 1); |
// ïîëçóíîê |
int tmp_w = (nx - scroll_x) * (wi - SCROLL_BAR_WIDTH - 2 * 14 - 14) / (col_count + 1); |
if (tmp_w < 16) |
tmp_w = 16; |
draw_custom_button(17 + (scroll_x - 1) * (wi - SCROLL_BAR_WIDTH - 2 * 14 - 14) / (col_count + 1), he - SCROLL_BAR_HEIGHT + 1, |
tmp_w, 14, 1); |
#define sw(x,y) y,x |
// íå ïèíàéòå ìåíÿ çà ýòî, áûëî ëåíü ïåðåñòàâëÿòü ðóêàìè... |
// âåðòèêàëü |
kos_DrawBar(sw(17, wi - SCROLL_BAR_WIDTH), sw(he - SCROLL_BAR_HEIGHT - 33, SCROLL_BAR_WIDTH), 0xced0d0); |
// ñèíèå ëèíèè |
kos_DrawRegion(sw(0, wi - SCROLL_BAR_WIDTH), sw(he - SCROLL_BAR_HEIGHT, SCROLL_BAR_WIDTH+1), 0x94aece, 0); // up |
// âåðõíÿÿ êíîïêà |
draw_custom_button(sw(1, wi - SCROLL_BAR_WIDTH + 1), 14, 14, 1); |
kos_WriteTextToWindow(sw(5, wi - SCROLL_BAR_WIDTH + 6), 0, 0, "\x18", 1); |
// íèæíÿÿ |
draw_custom_button(sw(he - SCROLL_BAR_HEIGHT * 2 + 1, wi - SCROLL_BAR_WIDTH + 1), 14, 14, 1); |
//draw_custom_button(sw(he - SCROLL_BAR_HEIGHT * 2 + 1, wi - SCROLL_BAR_WIDTH + 1), 14, 14, 1); |
kos_WriteTextToWindow(sw(he - SCROLL_BAR_HEIGHT * 2 + 5, wi - SCROLL_BAR_WIDTH + 6), 0, 0, "\x19", 1); |
// ïîëçóíîê |
int tmp_h = (ny - scroll_y) * (he - SCROLL_BAR_HEIGHT - 2 * 14 - 14) / (row_count + 1); |
if (tmp_h < 16) |
tmp_h = 16; |
draw_custom_button(sw(17 + (scroll_y - 1) * (he - SCROLL_BAR_HEIGHT - 2 * 14 - 14) / (row_count + 1), wi - SCROLL_BAR_WIDTH + 1), |
sw(tmp_h, 14), 1); |
} |
#define NO_DRAW 0x60000000 |
kos_DefineButton(1, he - SCROLL_BAR_HEIGHT + 1, 14, 14, NO_DRAW + SCROLL_LEFT_BUTTON,0); |
kos_DefineButton(wi - SCROLL_BAR_WIDTH * 2 + 2, he - SCROLL_BAR_HEIGHT + 1, 14, 14, NO_DRAW + SCROLL_RIGHT_BUTTON,0); |
kos_DefineButton(17, he - SCROLL_BAR_HEIGHT + 1, (wi - SCROLL_BAR_WIDTH - 2 * 14), 14, NO_DRAW + SCROLL_WIDTH,0); |
kos_DefineButton(sw(1, wi - SCROLL_BAR_WIDTH + 1), 14, 14, NO_DRAW + SCROLL_UP_BUTTON,0); |
kos_DefineButton(sw(he - SCROLL_BAR_HEIGHT * 2 + 2, wi - SCROLL_BAR_WIDTH + 1), 14, 14, NO_DRAW + SCROLL_DOWN_BUTTON,0); |
kos_DefineButton(sw(17, wi - SCROLL_BAR_WIDTH + 1), sw((he - SCROLL_BAR_HEIGHT - 2 * 14), 14), NO_DRAW + SCROLL_HEIGHT,0); |
} |
// î÷åíü áûñòðîå ðèñîâàíèå ñåòêè, â ïðîöåññå èçìåíåíèÿ ðàçìåðîâ ÿ÷ååê |
void draw_size_grid() |
{ |
//rtlDebugOutString("draw size grid"); |
kos_WindowRedrawStatus(1); |
if (size_state == SIZE_X) |
{ |
int x, x0, i; |
x = col_width[0]; |
x0 = 0; |
for (i = 1; i < col_count && x - x0 + col_width[i] < wi - 10; i++) |
{ |
if (i >= scroll_x) |
{ |
if (i >= size_id) |
kos_DrawLine(x - x0, 0, x - x0, he, 0, 1); |
} |
else |
x0 += col_width[i]; |
x += col_width[i]; |
} |
kos_DrawLine(x - x0, 0, x - x0, he, 0, 1); |
} |
else |
{ |
int y, y0, i; |
y = row_height[0]; |
y0 = 0; |
for (i = 1; i < col_count && y - y0 + row_height[i] < he - 10; i++) |
{ |
if (i >= scroll_y) |
{ |
if (i >= size_id) |
kos_DrawLine(0, y - y0, wi, y - y0, 0, 1); |
} |
else |
y0 += row_height[i]; |
y += row_height[i]; |
} |
kos_DrawLine(0, y - y0, wi, y - y0, 0, 1); |
} |
kos_WindowRedrawStatus(2); |
} |
// áûñòðîå ðèñîâàíèå âûäåëåííîé îáëàñòè ïðè âûäåëåíèè ìûøüþ |
#define DCOLOR 0 |
//0xff0000 |
#define DINVERT 1 |
void draw_drag() |
{ |
kos_WindowRedrawStatus(1); |
// ñîáñòâåííî, 4 èíâåðñíûå ëèíèè |
int k0 = min(sel_x, sel_end_x); |
int k1 = max(sel_x, sel_end_x); |
int n0 = min(sel_y, sel_end_y); |
int n1 = max(sel_y, sel_end_y); |
DWORD x0 = col_left[k0] - 1; |
DWORD x1 = col_left[k1] + col_width[k1] + 1; |
DWORD y0 = row_top[n0] - 1; |
DWORD y1 = row_top[n1] + row_height[n1] + 1; |
if (x0 > wi - 1) x0 = wi - 1; |
if (x1 > wi - 1) x1 = wi - 1; |
if (y0 > he - 1) y0 = he - 1; |
if (y1 > he - 1) y1 = he - 1; |
//sprintf(debuf,"drag %U %U %U %U",k0,k1,n0,n1); |
//rtlDebugOutString(debuf); |
kos_DrawLine(x0, y0, x0, y1, DCOLOR, DINVERT); |
kos_DrawLine(x0, y0, x1, y0, DCOLOR, DINVERT); |
kos_DrawLine(x1, y0, x1, y1, DCOLOR, DINVERT); |
kos_DrawLine(x0, y1, x1, y1, DCOLOR, DINVERT); |
kos_WindowRedrawStatus(2); |
} |
void draw_window() |
{ |
int i; |
double xx0=0.0, yy0=0.0; |
sProcessInfo info; |
void *p; |
if (sel_end_move) |
sel_moved = 0; |
memset((Byte*)&info, 0, 1024); |
kos_ProcessInfo(&info, 0xFFFFFFFF); |
p = info.rawData + 42; // magic |
wi = *(Dword *)(p); |
he = *(Dword *)((Byte *)p + 4); |
win_x = *(Dword *)((Byte *)p - 8); |
win_y = *(Dword *)((Byte *)p - 4); |
myPID = *(Dword*)((Byte *)p - 12); |
if (wi == 0) |
wi = WND_W; |
if (he == 0) |
he = WND_H; |
he -= kos_GetSkinHeight() + MENU_PANEL_HEIGHT; // äîñòóïíàÿ âûñîòà îêíà |
wi -= 6 + 4; |
// start redraw |
kos_WindowRedrawStatus(1); |
kos_DefineAndDrawWindow(10,40,WND_W,WND_H,0x33,0x40FFFFFF,0,0,(Dword)"Table v" TABLE_VERSION); |
if (he + MENU_PANEL_HEIGHT <= 8) |
{ |
kos_WindowRedrawStatus(2); |
return; |
} |
if (!sel_moved) |
{ |
kos_DrawBar(wi-15,he - kos_GetSkinHeight() +7,16,16,0xe4dfe1); |
kos_DrawBar(0,he - kos_GetSkinHeight() + 23,wi + 1,MENU_PANEL_HEIGHT-4,0xe4dfe1); |
} |
// edit_box_draw((dword)&ebox); |
int y = he + kos_GetSkinHeight() - 10; |
if (!sel_moved) |
{ |
kos_WriteTextToWindow(3 + 1, y + 3, 0x80 , 0x000000, (char*)sFilename, strlen(sFilename)); |
} |
//DWORD fn_line_color = fn_edit ? 0x000000 : 0xc0c0c0; |
//kos_DrawRegion(61, y - 2, 102, 18, fn_line_color, 0); |
// äàëüøå editbox width = 100 |
// border around edit box |
file_box.left = 64; |
file_box.top = y - 1; |
file_box.width = 98; |
//editbox_h = 18; |
//kos_DefineButton(62, y + 3, 100, 16, 0x60000000+FILENAME_BUTTON, 0xd0d0d0); |
// ñîõðàíèòü |
kos_DefineButton(20 + 160, y - 5, 60, 20, SAVE_BUTTON, 0xd0d0d0); |
kos_WriteTextToWindow(22 + 160 + (60 - strlen(sSave) * 6) / 2, y + 2, 0, 0x000000, (char*)sSave, strlen(sSave)); |
// çàãðóçèòü |
kos_DefineButton(90 + 160, y - 5, 60, 20, LOAD_BUTTON, 0xd0d0d0); |
kos_WriteTextToWindow(92 + 160 + (60 - strlen(sLoad) * 6) / 2, y + 2, 0, 0x000000, (char*)sLoad, strlen(sLoad)); |
// ñîçäàòü. òîëüêî ýòó êíîïó âîòêíóòü íåêóäà î_Î |
/* |
kos_DefineButton(90 + 160 + 70, y - 5, 60, 20, NEW_BUTTON, 0xd0d0d0); |
kos_WriteTextToWindow(92 + 160 + 10 + 70, y + 2, 0, 0x000000, (char*)sNew, strlen(sNew)); |
*/ |
panel_y = y; |
draw_grid(); |
//kos_DefineButton(0,0,WND_W,WND_H,0x60000002,0); |
//if (is_edit) KEdit(); |
if ((void*)edit_box_draw != NULL) |
{ |
if (is_edit) |
edit_box_draw((DWORD)&cell_box); |
edit_box_draw((DWORD)&file_box); |
} |
// end redraw |
kos_WindowRedrawStatus(2); |
sel_moved = 0; |
} |
void process_mouse() |
{ |
Dword mouse_btn, ckeys, shift, ctrl; |
int mouse_x, mouse_y, i, p, dx = 0, dy = 0; |
int redraw = 0; |
Dword mySlot = kos_GetSlotByPID(myPID); |
if (kos_GetActiveSlot() != mySlot) |
return; |
edit_box_mouse((dword)&cell_box); |
edit_box_mouse((dword)&file_box); |
int vert, hor; |
kos_GetScrollInfo(vert, hor); |
//sprintf(debuf, "scroll %U %U", vert, hor); |
//rtlDebugOutString(debuf); |
if (vert != 0) //òðóú ïåðåðèñîâêà! |
{ |
move_sel(sel_x, sel_y + vert); |
//move_sel(sel_x + hor, sel_y); |
return; |
} |
kos_GetMouseState(mouse_btn, mouse_x, mouse_y); |
mouse_x -= 5; |
mouse_y -= kos_GetSkinHeight(); |
mouse_btn &= 0x0001; |
ckeys = kos_GetSpecialKeyState(); |
shift = ckeys & 0x3; |
if (!size_state && !mouse_btn) |
return; |
if (mouse_btn && !size_state) // LMB down |
{ |
//rtlDebugOutString("lmb down and not resize"); |
if (mouse_x >= drag_x && mouse_x <= drag_x + 4 && mouse_y >= drag_y && mouse_y <= drag_y + 4) |
{ |
size_state = SIZE_DRAG; |
old_end_x = sel_end_x; |
old_end_y = sel_end_y; |
} |
else if (mouse_y <= row_height[0]) |
{ |
//rtlDebugOutString("can resize cols"); |
int kx = -1, i; |
for (i = 0; i < col_count - 1; i++) |
if (mouse_x >= col_left[i] + col_width[i] - 5 && |
mouse_x <= col_left[i + 1] + 5) |
{ |
kx = i; break; |
} |
if (kx != -1) |
{ |
//sprintf(debuf,"size x %U",k); |
//rtlDebugOutString(debuf); |
size_id = kx; |
size_state = SIZE_X; |
} |
} |
else if (mouse_x <= col_width[0]) |
{ |
int ky = -1; |
for (i = 0; i < row_count - 1; i++) |
if (mouse_y >= row_top[i] + row_height[i] - 5 && |
mouse_y <= row_top[i + 1] + 5) |
{ |
ky = i; break; |
} |
if (ky != -1) |
{ |
size_id = ky; |
size_state = SIZE_Y; |
} |
} |
else // êëèêíóòà ÿ÷åéêà |
if (mouse_x <= col_left[nx - 1] && mouse_y <= row_top[ny - 1]) |
{ |
was_single_selection = sel_x == sel_end_x && sel_y == sel_end_y; |
int kx = -1, i; |
for (i = 0; i < col_count - 1; i++) |
if (mouse_x >= col_left[i] && |
mouse_x <= col_left[i] + col_width[i]) |
{ |
kx = i; break; |
} |
int ky = -1; |
for (i = 0; i < row_count - 1; i++) |
if (mouse_y >= row_top[i] && |
mouse_y <= row_top[i] + row_height[i]) |
{ |
ky = i; break; |
} |
if (kx != -1 && ky != -1) |
{ |
if (!shift) |
{ |
move_sel(kx, ky); |
return; |
} |
else |
{ |
sel_end_x = kx; |
sel_end_y = ky; |
} |
size_state = SIZE_SELECT; |
} |
} |
if (size_state) |
{ |
size_mouse_x = mouse_x; |
size_mouse_y = mouse_y; |
} |
return; |
} |
else if (!mouse_btn && size_state) |
{ |
sel_moved = 0; // ÷òîáû áûëà òðó ïåðåðèñîâêà |
//rtlDebugOutString("resize end"); |
if (size_state == SIZE_DRAG) |
{ |
fill_cells(sel_x, sel_y, sel_end_x, sel_end_y, old_end_x, old_end_y); |
} |
sel_moved = (size_state == SIZE_SELECT && sel_x == sel_end_x && sel_y == sel_end_y && was_single_selection); |
size_state = 0; |
draw_window(); // âñå ñäâèíóëîñü - íàäî îáíîâèòüñÿ |
return; |
} |
if (size_state == SIZE_X && mouse_x != size_mouse_x) |
{ |
draw_size_grid(); |
col_width[size_id] += mouse_x - size_mouse_x; |
if (col_width[size_id] < 15) |
col_width[size_id] = 15; |
else if (col_width[size_id] > wi / 2) |
col_width[size_id] = wi / 2; |
draw_size_grid(); |
} |
if (size_state == SIZE_Y && mouse_y != size_mouse_y) |
{ |
draw_size_grid(); |
row_height[size_id] += mouse_y - size_mouse_y; |
if (row_height[size_id] < 15) |
row_height[size_id] = 15; |
else if (row_height[size_id] > he / 2) |
row_height[size_id] = he / 2; |
draw_size_grid(); |
} |
if ((size_state == SIZE_SELECT || size_state == SIZE_DRAG) && (mouse_x != size_mouse_x || mouse_y != size_mouse_y)) |
{ |
draw_drag(); |
int kx = -1, i; |
for (i = 0; i < col_count - 1; i++) |
if (mouse_x >= col_left[i] && |
mouse_x <= col_left[i + 1]) |
{ |
sprintf(debuf, "yyy %U",col_left[i+1]); |
rtlDebugOutString(debuf); |
kx = i; break; |
} |
int ky = -1; |
for (i = 0; i < row_count - 1; i++) |
if (mouse_y >= row_top[i] && |
mouse_y <= row_top[i + 1]) |
{ |
ky = i; break; |
} |
if (kx != -1) sel_end_x = kx; |
if (kx != -1) sel_end_y = ky; |
if (size_state == SIZE_DRAG) |
{ |
if (abs(sel_end_x - sel_x) > 0) |
{ |
sel_end_y = old_end_y; |
} |
else if (abs(sel_end_y - sel_y) > 0) |
{ |
sel_end_x = old_end_x; |
} |
} |
draw_drag(); |
} |
size_mouse_x = mouse_x; |
size_mouse_y = mouse_y; |
} |
void process_key() |
{ |
Dword mouse_btn, ckeys, shift, ctrl; |
int mouse_x, mouse_y, i, p, dx = 0, dy = 0; |
// key pressed, read it |
Byte keyCode; |
ckeys = kos_GetSpecialKeyState(); |
shift = ckeys & 0x3; |
ctrl = ckeys & 0x0c; |
//if (ctrl) |
// rtlDebugOutString("control pressed!"); |
dx = 0, dy = 0; |
sel_moved = 0; |
sel_end_move = 0; |
kos_GetKey(keyCode); |
__asm |
{ |
mov ah, keyCode |
} |
edit_box_key((dword)&cell_box); |
edit_box_key((dword)&file_box); |
switch (keyCode) |
{ |
case 178: // ñòðåëêè |
//dx = 0; |
dy = -1; |
break; |
case 176: |
dx = -1; |
//dy = 0; |
break; |
case 179: |
dx = 1; |
//dy = 0; |
break; |
case 177: |
//dx = 0; |
dy = 1; |
break; |
/* |
case 183: |
if (sel_y < row_count-(ny - scroll_y)) // page down |
dy = ny - scroll_y; |
else |
dy = row_count-(ny - scroll_y) - sel_y; |
dx = 0; |
redraw = 1; |
break; |
case 184: |
if (sel_y > ny - scroll_y) // page up |
dy= - (ny - scroll_y); |
else |
dy = - (ny - scroll_y) + sel_y; |
dx = 0; |
redraw = 1; |
break; |
*/ |
case 180: //home |
dx = -sel_x + 1; |
dy = 0; |
draw_grid(); //draw_window(); |
break; |
case 181: //end |
dx = col_count - (nx - scroll_x) - 1 - sel_x; |
dy = 0; |
draw_grid(); //draw_window(); |
break; |
case 27: // escape |
cancel_edit(); |
break; |
case 182: // delete |
{ |
int i,j,n0,n1,k0,k1; |
n0 = min(sel_x, sel_end_x); |
n1 = max(sel_x, sel_end_x); |
k0 = min(sel_y, sel_end_y); |
k1 = max(sel_y, sel_end_y); |
for (i = n0; i <= n1; i++) |
for (j = k0; j <= k1; j++) |
{ |
if (cells[i][j]) |
{ |
freemem(cells[i][j]); |
cells[i][j] = NULL; |
} |
} |
calculate_values(); |
draw_grid(); |
break; |
} |
case 0x0D: // enter |
if (is_edit) |
{ |
stop_edit(); |
draw_window(); |
} |
break; |
//case 0x08: // backspace |
/*if (is_edit || fn_edit) |
{ |
if (strlen(edit_text) != 0) |
edit_text[strlen(edit_text) - 1] = '\0'; |
KEdit(); |
} |
else if (cells[sel_x][sel_y]) |
{ |
start_edit(sel_x, sel_y); |
} |
*/ |
// break; |
case 22: // contol-v |
{ |
if (ctrl) |
{ |
//rtlDebugOutString("control-v!"); |
int i, j, x0, y0; |
x0 = min(sel_x, sel_end_x); |
y0 = min(sel_y, sel_end_y); |
int delta_x = x0 - buf_old_x; |
int delta_y = y0 - buf_old_y; |
for (i = 0; i < buf_col; i++) |
for (j = 0; j < buf_row; j++) |
{ |
if (i + x0 >= col_count || j + y0 >= row_count) |
continue; |
if (cells[i + x0][j + y0]) |
freemem(cells[i + x0][j + y0]); |
if (buffer[i][j]) |
{ |
cf_x0 = buf_old_x; cf_y0 = buf_old_y; |
cf_x1 = buf_old_x + buf_col; |
cf_y1 = buf_old_y + buf_row; |
cells[i + x0][j + y0] = change_formula(buffer[i][j], delta_x, delta_y); |
//cells[i + x0][j + y0] = (char*)allocmem(strlen(buffer[i][j])); |
//strcpy(cells[i + x0][j + y0], buffer[i][j]); |
} |
else |
cells[i + x0][j + y0] = NULL; |
} |
calculate_values(); |
draw_window(); |
break; |
} |
} |
case 24: // control-x |
case 03: // control-c |
{ |
if (ctrl) |
{ |
//rtlDebugOutString("control-c!"); |
int i, j, x0, y0; |
freeBuffer(); |
buf_col = abs(sel_end_x - sel_x) + 1; |
buf_row = abs(sel_end_y - sel_y) + 1; |
x0 = min(sel_x, sel_end_x); |
y0 = min(sel_y, sel_end_y); |
buf_old_x = x0; |
buf_old_y = y0; |
//sprintf(debuf, "%U %U %U %U", buf_col, buf_row, x0, y0); |
//rtlDebugOutString(debuf); |
buffer = (char***)allocmem(buf_col * sizeof(char**)); |
for (i = 0; i < buf_col; i++) |
{ |
buffer[i] = (char**)allocmem(buf_row * sizeof(char*)); |
for (j = 0; j < buf_row; j++) |
{ |
if (cells[i + x0][j + y0]) |
{ |
if (keyCode == 03) // ctrl-c |
{ |
buffer[i][j] = (char*)allocmem(strlen(cells[i + x0][j + y0])); |
strcpy(buffer[i][j], cells[i + x0][j + y0]); |
} |
else |
{ |
buffer[i][j] = cells[i + x0][j + y0]; |
cells[i + x0][j + y0] = NULL; |
} |
} |
else |
buffer[i][j] = NULL; |
} |
} |
if (keyCode == 24) |
calculate_values(); |
draw_window(); |
break; |
} |
} |
case 06: // control-f |
{ |
display_formulas = !display_formulas; |
draw_grid(); //draw_window(); |
break; |
} |
default: |
if (!is_edit && !(file_box.flags & ed_focus)) |
{ |
start_edit(sel_x, sel_y); |
if (keyCode == 8) |
{ |
cell_box.pos = strlen(edit_text); |
} |
else |
{ |
__asm |
{ |
mov ah, keyCode |
} |
edit_box_key((dword)&cell_box); |
} |
} |
if (is_edit) |
edit_box_draw((dword)&cell_box); |
/* |
if (strlen(edit_text)<256) |
{ |
edit_text[strlen(edit_text)]=keyCode; |
edit_text[strlen(edit_text) + 1]='\0'; |
KEdit(); |
} |
*/ |
break; |
} |
if (dx != 0) |
{ |
if (shift) |
{ |
sel_end_x += dx; |
if (sel_end_x <= 1) |
sel_end_x = 1; |
else if (sel_end_x >= col_count) |
sel_end_x = col_count - 1; |
// sprintf(debuf,"sel end x change. sel end %U %U",sel_end_x,sel_end_y); |
// rtlDebugOutString(debuf); |
sel_moved = sel_end_move = 1; |
//stop_edit(); |
//draw_grid(); |
} |
else |
{ |
} |
} |
if (dy != 0) |
{ |
if (shift) |
{ |
sel_end_y += dy; |
if (sel_end_y <= 1) |
sel_end_y = 1; |
else if (sel_end_y >= row_count) |
sel_end_y = row_count - 1; |
// sprintf(debuf,"sel end y change. sel end %U %U",sel_end_x,sel_end_y); |
// rtlDebugOutString(debuf); |
sel_moved = sel_end_move = 1; |
//stop_edit(); |
//draw_grid(); |
} |
else |
{ |
} |
} |
/* |
if (sel_end_x < sel_x) |
{ |
Dword tmp = sel_end_x; sel_end_x = sel_x; sel_x = tmp; |
} |
if (sel_end_y < sel_y) |
{ |
Dword tmp = sel_end_y; sel_end_y = sel_y; sel_y = tmp; |
} |
*/ |
if ((dx || dy)) |
{ |
if (!shift) |
{ |
move_sel(sel_x + dx, sel_y + dy); |
} |
else |
{ |
sel_moved = 0; |
stop_edit(); |
draw_grid(); |
} |
} |
} |
void process_button() |
{ |
Dword mouse_btn, ckeys, shift, ctrl; |
int mouse_x, mouse_y, i, p, dx = 0, dy = 0; |
int redraw = 0; |
Dword button; |
kos_GetButtonID(button); |
/* |
sprintf(debuf, "button %U", button); |
rtlDebugOutString(debuf); |
//*/ |
switch (button) |
{ |
case 1: |
kos_ExitApp(); |
case SCROLL_LEFT_BUTTON: |
//rtlDebugOutString("scroll left btn"); |
stop_edit(); |
scroll_x--; |
if (scroll_x <= 0) |
scroll_x = 1; |
sel_moved = 0; |
/*if (sel_x > nx - 1) |
{ |
nx - 1; |
sel_end_x = sel_x; |
}*/ |
draw_window(); |
return; |
case SCROLL_RIGHT_BUTTON: |
//rtlDebugOutString("scroll right btn"); |
stop_edit(); |
scroll_x++; |
if (scroll_x >= col_count - 1) |
scroll_x = col_count - 1; |
sel_moved = 0;/* |
if (sel_x < scroll_x) |
{ |
sel_x = scroll_x; |
sel_end_x = sel_x; |
}*/ |
draw_window(); |
return; |
case SCROLL_WIDTH: |
{ |
//rtlDebugOutString("scroll width btn"); |
stop_edit(); |
kos_GetMouseState(mouse_btn, mouse_x, mouse_y); |
mouse_x -= 5; |
mouse_y -= kos_GetSkinHeight(); |
// âñåãî: wi - SCROLL_BAR_WIDTH - 2 * 14 |
int tmp_w = (nx - scroll_x) * (wi - SCROLL_BAR_WIDTH - 3 * 14) / (col_count + 1); |
if (tmp_w < 16) |
tmp_w = 16; |
scroll_x = (mouse_x - 14 - tmp_w / 2) * (col_count + 1) / (wi - SCROLL_BAR_WIDTH - 3 * 14) + 1; |
if (scroll_x <= 0) |
scroll_x = 1; |
else if (scroll_x >= col_count - 1) |
scroll_x = col_count - 1; |
sel_moved = 0; |
draw_window(); |
return; |
} |
case SCROLL_UP_BUTTON: |
stop_edit(); |
scroll_y--; |
if (scroll_y <= 0) |
scroll_y = 1; |
sel_moved = 0; |
//draw_window(); |
draw_grid(); |
/* |
if (sel_y > ny - 1) |
{ |
sel_y = ny - 1; |
sel_end_y = sel_y; |
}*/ |
return; |
case SCROLL_DOWN_BUTTON: |
stop_edit(); |
scroll_y++; |
if (scroll_y >= row_count - 1) |
scroll_y = row_count - 1; |
sel_moved = 0;/* |
if (sel_y < scroll_y) |
{ |
sel_y = scroll_y; |
sel_end_y = sel_y; |
}*/ |
draw_grid(); |
return; |
case SCROLL_HEIGHT: |
{ |
stop_edit(); |
kos_GetMouseState(mouse_btn, mouse_x, mouse_y); |
mouse_x -= 5; |
mouse_y -= kos_GetSkinHeight(); |
int tmp_h = (ny - scroll_y) * (he - SCROLL_BAR_HEIGHT - 2 * 14) / row_count; |
if (tmp_h < 16) |
tmp_h = 16; |
scroll_y = (mouse_y - 2 * 14) * (row_count + 1) / (he - SCROLL_BAR_HEIGHT - 3 * 14) + 1; |
if (scroll_y <= 0) |
scroll_y = 1; |
else if (scroll_y >= row_count - 1) |
scroll_y = row_count - 1; |
sel_moved = 0; |
draw_grid(); |
return; |
} |
case NEW_BUTTON: // clear the table |
reinit(); |
draw_window(); |
break; |
case FILENAME_BUTTON: |
sel_moved = 1; |
stop_edit(); |
fn_edit = 1; |
strcpy(edit_text, fname); |
draw_window(); |
break; |
case SAVE_BUTTON: |
stop_edit(); |
kos_DrawBar(320, panel_y, wi - 320 - 10, 10, 0xe4dfe1); |
if (SaveFile(fname)) |
kos_WriteTextToWindow(320, panel_y, 0, 0x000000, (char*)msg_save, strlen(msg_save)); |
break; |
case LOAD_BUTTON: |
stop_edit(); |
int r = LoadFile(fname); |
kos_DrawBar(320, panel_y, wi - 320 - 10, 10, 0xe4dfe1); |
if (r > 0) |
{ |
calculate_values(); |
sel_moved = 0; |
draw_window(); |
kos_WriteTextToWindow(320, panel_y,0,0x000000,(char*)msg_load, strlen(msg_load)); |
} |
else if (r == -1) |
kos_WriteTextToWindow(320, panel_y,0,0x000000,(char*)er_file_not_found,strlen(er_file_not_found)); |
else if (r == -2) |
kos_WriteTextToWindow(320, panel_y,0,0x000000,(char*)er_format,strlen(er_format)); |
break; |
} |
/* |
if (button >= COL_BUTTON && button < ROW_BUTTON) |
{ |
scroll_x = button - COL_BUTTON; |
fn_edit = is_edit = 0; |
draw_window(); |
//sprintf(debuf, "col %U", scroll_x); |
//rtlDebugOutString(debuf); |
} |
else if (button >= ROW_BUTTON && button < COL_HEAD_BUTTON) |
{ |
scroll_y = button - ROW_BUTTON; |
fn_edit = is_edit = 0; |
draw_window(); |
//sprintf(debuf, "row %U", scroll_y); |
//rtlDebugOutString(debuf); |
} |
*/ |
if (button >= COL_HEAD_BUTTON && button < ROW_HEAD_BUTTON) |
{ |
sel_end_x = sel_x = button - COL_HEAD_BUTTON; |
sel_y = 1; |
sel_end_y = row_count - 1; |
stop_edit(); |
draw_window(); |
return; |
} |
else if (button >= ROW_HEAD_BUTTON && button < CELL_BUTTON) |
{ |
sel_end_y = sel_y = button - ROW_HEAD_BUTTON; |
sel_x = 1; |
sel_end_x = col_count - 1; |
stop_edit(); |
draw_window(); |
return; |
} |
} |
void kos_Main() |
{ |
kos_InitHeap(); |
load_edit_box(); |
init(); |
draw_window(); |
for (;;) |
{ |
switch (kos_WaitForEvent(10)) // äà, ïëîõî. ïîòîì íóæíî áóäåò ïðîñòî ëîâèòü ñîáûòèÿ ìûøè. |
{ |
case 0: |
process_mouse(); |
break; |
case 1: |
draw_window(); |
break; |
case 2: |
process_key(); |
break; |
case 3: |
process_button(); |
break; |
//case 6: |
// draw_window(); |
// break; |
} |
} |
} |
/programs/other/table/hello.dsp |
---|
0,0 → 1,139 |
# Microsoft Developer Studio Project File - Name="hello" - Package Owner=<4> |
# Microsoft Developer Studio Generated Build File, Format Version 6.00 |
# ** DO NOT EDIT ** |
# TARGTYPE "Win32 (x86) Application" 0x0101 |
CFG=hello - Win32 Release |
!MESSAGE This is not a valid makefile. To build this project using NMAKE, |
!MESSAGE use the Export Makefile command and run |
!MESSAGE |
!MESSAGE NMAKE /f "hello.mak". |
!MESSAGE |
!MESSAGE You can specify a configuration when running NMAKE |
!MESSAGE by defining the macro CFG on the command line. For example: |
!MESSAGE |
!MESSAGE NMAKE /f "hello.mak" CFG="hello - Win32 Release" |
!MESSAGE |
!MESSAGE Possible choices for configuration are: |
!MESSAGE |
!MESSAGE "hello - Win32 Release" (based on "Win32 (x86) Application") |
!MESSAGE |
# Begin Project |
# PROP AllowPerConfigDependencies 0 |
# PROP Scc_ProjName "" |
# PROP Scc_LocalPath "" |
CPP=cl.exe |
MTL=midl.exe |
RSC=rc.exe |
# PROP BASE Use_MFC 0 |
# PROP BASE Use_Debug_Libraries 0 |
# PROP BASE Output_Dir "Release" |
# PROP BASE Intermediate_Dir "Release" |
# PROP BASE Target_Dir "" |
# PROP Use_MFC 0 |
# PROP Use_Debug_Libraries 0 |
# PROP Output_Dir "Release" |
# PROP Intermediate_Dir "Release" |
# PROP Ignore_Export_Lib 0 |
# PROP Target_Dir "" |
# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /YX /FD /c |
# ADD CPP /nologo /Zp1 /W3 /vd0 /O2 /YX /FD /c |
# SUBTRACT CPP /X |
# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 |
# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 |
# ADD BASE RSC /l 0x419 /d "NDEBUG" |
# ADD RSC /l 0x419 /d "NDEBUG" |
BSC32=bscmake.exe |
# ADD BASE BSC32 /nologo |
# ADD BSC32 /nologo |
LINK32=link.exe |
# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /machine:I386 |
# ADD LINK32 /nologo /base:"0" /entry:"crtStartUp" /subsystem:windows /machine:I386 /nodefaultlib /align:16 |
# SUBTRACT LINK32 /pdb:none |
# Begin Custom Build |
InputPath=.\Release\hello.exe |
SOURCE="$(InputPath)" |
"hello.kex" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" |
pe2kos Release\hello.exe hello.kex |
# End Custom Build |
# Begin Target |
# Name "hello - Win32 Release" |
# Begin Group "Source Files" |
# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat" |
# Begin Source File |
SOURCE=.\calc.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\func.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\hello.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\KosFile.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\kosSyst.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\math2.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\mcsmemm.cpp |
# End Source File |
# Begin Source File |
SOURCE=.\parser.cpp |
# End Source File |
# End Group |
# Begin Group "Header Files" |
# PROP Default_Filter "h;hpp;hxx;hm;inl" |
# Begin Source File |
SOURCE=.\calc.h |
# End Source File |
# Begin Source File |
SOURCE=.\func.h |
# End Source File |
# Begin Source File |
SOURCE=.\KosFile.h |
# End Source File |
# Begin Source File |
SOURCE=.\kosSyst.h |
# End Source File |
# Begin Source File |
SOURCE=.\MCSMEMM.H |
# End Source File |
# Begin Source File |
SOURCE=.\parser.h |
# End Source File |
# Begin Source File |
SOURCE=.\use_library.h |
# End Source File |
# End Group |
# Begin Group "Resource Files" |
# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" |
# End Group |
# End Target |
# End Project |
/programs/other/table/hello.dsw |
---|
0,0 → 1,29 |
Microsoft Developer Studio Workspace File, Format Version 6.00 |
# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! |
############################################################################### |
Project: "hello"=".\hello.dsp" - Package Owner=<4> |
Package=<5> |
{{{ |
}}} |
Package=<4> |
{{{ |
}}} |
############################################################################### |
Global: |
Package=<5> |
{{{ |
}}} |
Package=<3> |
{{{ |
}}} |
############################################################################### |
/programs/other/table/kosSyst.cpp |
---|
0,0 → 1,894 |
#include "kosSyst.h" |
#include "func.h" |
#include <stdarg.h> |
#define atexitBufferSize 32 |
char pureCallMessage[] = "PURE function call!"; |
char *kosExePath = NULL; |
// |
void (__cdecl *atExitList[atexitBufferSize])(); |
int atExitFnNum = 0; |
// |
int __cdecl atexit( void (__cdecl *func )( void )) |
{ |
// |
if ( atExitFnNum < atexitBufferSize ) |
{ |
// |
atExitList[atExitFnNum++] = func; |
return 0; |
} |
else |
{ |
return 1; |
} |
} |
// |
Dword RandomSeed = 1; |
// |
void rtlSrand( Dword seed ) |
{ |
RandomSeed = seed; |
} |
// |
Dword rtlRand( void ) |
{ |
//ìàñêà 0x80000776 |
Dword dwi, i; |
for ( i = 0; i < 32; i++ ) |
{ |
dwi = RandomSeed & 0x80000776; |
__asm{ |
mov eax, dwi |
mov edx, eax |
bswap eax |
xor eax, edx |
xor al, ah |
setpo al |
movzx eax, al |
mov dwi, eax |
} |
RandomSeed = ( RandomSeed << 1 ) | ( dwi & 1 ); |
} |
return RandomSeed; |
} |
void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount ) |
{ |
__asm{ |
mov edi, dst |
mov eax, dst |
mov esi, src |
mov ecx, bytesCount |
rep movsb |
} |
} |
// |
void memset( Byte *dst, Byte filler, Dword count ) |
{ |
// |
__asm{ |
mov edi, dst |
mov al, filler |
mov ecx, count |
rep stosb |
} |
} |
// |
Dword rtlInterlockedExchange( Dword *target, Dword value ) |
{ |
// Dword result; |
// |
__asm{ |
mov eax, value |
mov ebx, target |
xchg eax, [ebx] |
// mov result, eax |
} |
// |
// return result; |
} |
////////////////////////////////////////////////////////////////////// |
// |
// êîïèðîâàíèå ñòðîêè |
// |
char * __cdecl strcpy( char *target, const char *source ) |
{ |
char *result = target; |
while( target[0] = source[0] ) |
{ |
target++; |
source++; |
} |
return result; |
} |
////////////////////////////////////////////////////////////////////// |
// |
// ðåâåðñèâíûé ïîèñê ñèìâîëà |
// |
char * __cdecl strrchr( const char * string, int c ) |
{ |
char *cPtr; |
// |
for ( cPtr = (char *)string + strlen( string ); cPtr >= string; cPtr-- ) |
{ |
// |
if ( *cPtr == c ) return cPtr; |
} |
// |
return NULL; |
} |
////////////////////////////////////////////////////////////////////// |
// |
// îïðåäåëåíèå äëèíû ñòðîêè |
// |
int __cdecl strlen( const char *line ) |
{ |
int i; |
for( i=0; line[i] != 0; i++ ); |
return i; |
} |
////////////////////////////////////////////////////////////////////// |
// |
// ïåðåâîä øåñòíàäöàòèðè÷íîãî ÷èñëà â ñèìâîë |
// |
unsigned int num2hex( unsigned int num ) |
{ |
if( num < 10 ) |
return num + '0'; |
return num - 10 + 'A'; |
} |
////////////////////////////////////////////////////////////////////// |
// |
// âûâîä ñòðîêè íà ïå÷àòü. barsuk äîáàâèë %f |
//#define PREC 2 |
//#define HALF 0.499 |
#define PREC 6 |
#define HALF 0.4999999 |
double double_tab[]={1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 1e10, 1e11, 1e12, 1e13, 1e14, 1e15, |
1e16, 1e17, 1e18, 1e19, 1e20, 1e21, 1e22, 1e23, 1e24, 1e25, 1e26, 1e27, 1e28, 1e29, 1e30}; |
// |
Dword dectab[] = { 1000000000, 100000000, 10000000, 1000000, 100000, |
10000, 1000, 100, 10, 0 }; |
// |
void sprintf( char *Str, char* Format, ... ) |
{ |
int i, fmtlinesize, j, k, flag; |
Dword head, tail; |
char c; |
va_list arglist; |
// |
va_start(arglist, Format); |
// |
fmtlinesize = strlen( Format ); |
// |
if( fmtlinesize == 0 ) return; |
// |
for( i = 0, j = 0; i < fmtlinesize; i++ ) |
{ |
// |
c = Format[i]; |
// |
if( c != '%' ) |
{ |
Str[j++] = c; |
continue; |
} |
// |
i++; |
// |
if( i >= fmtlinesize ) break; |
// |
flag = 0; |
// |
c = Format[i]; |
// |
switch( c ) |
{ |
// |
case '%': |
Str[j++] = c; |
break; |
// âûâîä ñòðîêè |
case 'S': |
Byte* str; |
str = va_arg(arglist, Byte*); |
for( k = 0; ( c = str[k] ) != 0; k++ ) |
{ |
Str[j++] = c; |
} |
break; |
// âûâîä áàéòà |
case 'B': |
k = va_arg(arglist, int) & 0xFF; |
Str[j++] = num2hex( ( k >> 4 ) & 0xF ); |
Str[j++] = num2hex( k & 0xF ); |
break; |
// âûâîä ñèìâîëà |
case 'C': |
Str[j++] = va_arg(arglist, int) & 0xFF; |
break; |
// âûâîä äâîéíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå |
case 'X': |
Dword val; |
val = va_arg(arglist, Dword); |
for( k = 7; k >= 0; k-- ) |
{ |
// |
c = num2hex ( ( val >> (k * 4) ) & 0xF ); |
// |
if( c == '0' ) |
{ |
if( flag ) Str[j++] = c; |
} |
else |
{ |
flag++; |
Str[j++] = c; |
} |
} |
// |
if( flag == 0 ) Str[j++] = '0'; |
break; |
// âûâîä äâîéíîãî ñëîâà â äåñÿòè÷íîì âèäå |
case 'U': |
head = va_arg(arglist, Dword); |
tail = 0; |
for( k = 0; dectab[k] != 0; k++ ) |
{ |
tail = head % dectab[k]; |
head /= dectab[k]; |
c = head + '0'; |
if( c == '0' ) |
{ |
if( flag ) Str[j++] = c; |
} |
else |
{ |
flag++; |
Str[j++] = c; |
} |
// |
head = tail; |
} |
// |
c = head + '0'; |
Str[j++] = c; |
break; |
// âåùåñòâåííîå ÷èñëî â ôîðìàòå 7.2 |
case 'f': |
case 'F': |
case 'g': |
case 'G': |
{ |
double val, w; |
int p; |
val = va_arg(arglist, double); |
if (val < 0.0) |
{ |
Str[j++] = '-'; |
val = -val; |
} |
for (k = 0; k < 30; k++) |
if (val < double_tab[k]) |
break; |
if (val < 1.0) |
{ |
Str[j++] = '0'; |
} |
for (p = 1; p < k + 1; p++) |
{ |
int d = (int)di(val / double_tab[k - p] - HALF) % 10; |
Str[j++] = '0' + d; |
val -= d * double_tab[k - p]; |
} |
Str[j++] = '.'; |
w = 0.1; |
for (p = 0; p < PREC - 1; p++) |
{ |
val-=floor(val); |
Str[j++] = '0' + di(val / w - HALF) % 10; |
w /= 10.0; |
} |
} |
break; |
// âûâîä 64-áèòíîãî ñëîâà â øåñòíàäöàòèðè÷íîì âèäå |
case 'Q': |
unsigned int low_dword, high_dword; |
low_dword = va_arg(arglist, unsigned int); |
high_dword = va_arg(arglist, unsigned int); |
for( k = 7; k >= 0; k-- ) |
{ |
// |
c = num2hex ( ( ( high_dword + 1) >> (k * 4) ) & 0xF ); |
// |
if( c == '0' ) |
{ |
if( flag ) Str[j++] = c; |
} |
else |
{ |
flag++; |
Str[j++] = c; |
} |
} |
// |
for( k=7; k >= 0; k-- ) |
{ |
// |
c = num2hex ( ( low_dword >> (k * 4) ) & 0xF ); |
// |
if( c == '0' ) |
{ |
if( flag ) Str[j++] = c; |
} |
else |
{ |
flag++; |
Str[j++] = c; |
} |
} |
// |
if( flag == 0 ) Str[j++] = '0'; |
// |
break; |
// |
default: |
break; |
} |
} |
// |
Str[j] = 0; |
} |
// ôóíêöèÿ -1 çàâåðøåíèÿ ïðîöåññà |
void kos_ExitApp() |
{ |
int i; |
// |
for ( i = atExitFnNum - 1; i >= 0; i-- ) |
{ |
// |
atExitList[i](); |
} |
// |
__asm{ |
mov eax, -1 |
int 0x40 |
} |
} |
// ôóíêöèÿ 0 |
void kos_DefineAndDrawWindow( |
Word x, Word y, |
Word sizeX, Word sizeY, |
Byte mainAreaType, |
Dword mainAreaColour, |
Byte headerType, |
Dword headerColour, |
Dword borderColour |
) |
{ |
Dword arg1, arg2, arg3, arg4; |
// |
arg1 = ( x << 16 ) + sizeX; |
arg2 = ( y << 16 ) + sizeY; |
arg3 = ( mainAreaType << 24 ) | mainAreaColour; |
arg4 = ( headerType << 24 ) | headerColour; |
// |
__asm{ |
mov eax, 0 |
mov ebx, arg1 |
mov ecx, arg2 |
mov edx, arg3 |
mov esi, arg4 |
mov edi, borderColour |
int 0x40 |
} |
} |
// ôóíêöèÿ 1 ïîñòàâèòü òî÷êó |
void kos_PutPixel( Dword x, Dword y, Dword colour ) |
{ |
// |
__asm{ |
mov eax, 1 |
mov ebx, x |
mov ecx, y |
mov edx, colour |
int 0x40 |
} |
} |
// ôóíêöèÿ 2 ïîëó÷èòü êîä íàæàòîé êëàâèøè |
bool kos_GetKey( Byte &keyCode ) |
{ |
Dword result; |
// |
__asm{ |
mov eax, 2 |
int 0x40 |
mov result, eax |
} |
// |
keyCode = result >> 8; |
// |
return ( result & 0xFF ) == 0; |
} |
// ôóíêöèÿ 3 ïîëó÷èòü âðåìÿ |
Dword kos_GetSystemClock() |
{ |
// Dword result; |
// |
__asm{ |
mov eax, 3 |
int 0x40 |
// mov result, eax |
} |
// |
// return result; |
} |
// ôóíêöèÿ 4 |
void kos_WriteTextToWindow( |
Word x, |
Word y, |
Byte fontType, |
Dword textColour, |
char *textPtr, |
Dword textLen |
) |
{ |
Dword arg1, arg2; |
// |
arg1 = ( x << 16 ) | y; |
arg2 = ( fontType << 24 ) | textColour; |
// |
__asm{ |
mov eax, 4 |
mov ebx, arg1 |
mov ecx, arg2 |
mov edx, textPtr |
mov esi, textLen |
int 0x40 |
} |
} |
// ôóíêöèÿ 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû |
void kos_Pause( Dword value ) |
{ |
// |
__asm{ |
mov eax, 5 |
mov ebx, value |
int 0x40 |
} |
} |
// ôóíêöèÿ 7 íàðèñîâàòü èçîáðàæåíèå |
void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y ) |
{ |
Dword arg1, arg2; |
// |
arg1 = ( sizeX << 16 ) | sizeY; |
arg2 = ( x << 16 ) | y; |
// |
__asm{ |
mov eax, 7 |
mov ebx, imagePtr |
mov ecx, arg1 |
mov edx, arg2 |
int 0x40 |
} |
} |
// ôóíêöèÿ 8 îïðåäåëèòü êíîïêó |
void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour ) |
{ |
Dword arg1, arg2; |
// |
arg1 = ( x << 16 ) | sizeX; |
arg2 = ( y << 16 ) | sizeY; |
// |
__asm{ |
mov eax, 8 |
mov ebx, arg1 |
mov ecx, arg2 |
mov edx, buttonID |
mov esi, colour |
int 0x40 |
} |
} |
// ôóíêöèÿ 9 - èíôîðìàöèÿ î ïðîöåññå |
Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID ) |
{ |
// Dword result; |
// |
__asm{ |
mov eax, 9 |
mov ebx, targetPtr |
mov ecx, processID |
int 0x40 |
// mov result, eax |
} |
// |
// return result; |
} |
// ôóíêöèÿ 10 |
Dword kos_WaitForEvent() |
{ |
// Dword result; |
__asm{ |
mov eax, 10 |
int 0x40 |
// mov result, eax |
} |
// return result; |
} |
// ôóíêöèÿ 11 |
Dword kos_CheckForEvent() |
{ |
// Dword result; |
__asm{ |
mov eax, 11 |
int 0x40 |
// mov result, eax |
} |
// return result; |
} |
// ôóíêöèÿ 12 |
void kos_WindowRedrawStatus( Dword status ) |
{ |
__asm{ |
mov eax, 12 |
mov ebx, status |
int 0x40 |
} |
} |
// ôóíêöèÿ 13 íàðèñîâàòü ïîëîñó |
void kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour ) |
{ |
Dword arg1, arg2; |
// |
arg1 = ( x << 16 ) | sizeX; |
arg2 = ( y << 16 ) | sizeY; |
// |
__asm{ |
mov eax, 13 |
mov ebx, arg1 |
mov ecx, arg2 |
mov edx, colour |
int 0x40 |
} |
} |
// ôóíêöèÿ 17 |
bool kos_GetButtonID( Dword &buttonID ) |
{ |
Dword result; |
// |
__asm{ |
mov eax, 17 |
int 0x40 |
mov result, eax |
} |
// |
buttonID = result >> 8; |
// |
return (result & 0xFF) == 0; |
} |
// ôóíêöèÿ 23 |
Dword kos_WaitForEvent( Dword timeOut ) |
{ |
// Dword result; |
__asm{ |
mov eax, 23 |
mov ebx, timeOut |
int 0x40 |
// mov result, eax |
} |
// return result; |
} |
// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" ôóíêöèÿ 37 |
void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY ) |
{ |
Dword mB; |
Word curX; |
Word curY; |
sProcessInfo sPI; |
// |
__asm{ |
mov eax, 37 |
mov ebx, 0 |
int 0x40 |
mov curY, ax |
shr eax, 16 |
mov curX, ax |
mov eax, 37 |
mov ebx, 2 |
int 0x40 |
mov mB, eax |
} |
// |
kos_ProcessInfo( &sPI ); |
// |
buttons = mB; |
cursorX = curX - sPI.processInfo.x_start; |
cursorY = curY - sPI.processInfo.y_start; |
} |
// ôóíêöèÿ 40 óñòàíîâèòü ìàñêó ñîáûòèé |
void kos_SetMaskForEvents( Dword mask ) |
{ |
// |
__asm{ |
mov eax, 40 |
mov ebx, mask |
int 0x40 |
} |
} |
// ôóíêöèÿ 47 âûâåñòè â îêíî ïðèëîæåíèÿ ÷èñëî |
void kos_DisplayNumberToWindow( |
Dword value, |
Dword digitsNum, |
Word x, |
Word y, |
Dword colour, |
eNumberBase nBase, |
bool valueIsPointer |
) |
{ |
Dword arg1, arg2; |
// |
arg1 = ( valueIsPointer ? 1 : 0 ) | |
( ((Byte)nBase) << 8 ) | |
( ( digitsNum & 0x1F ) << 16 ); |
arg2 = ( x << 16 ) | y; |
// |
__asm{ |
mov eax, 47 |
mov ebx, arg1 |
mov ecx, value |
mov edx, arg2 |
mov esi, colour |
int 0x40 |
} |
} |
// ôóíêöèÿ 70 äîñòóï ê ôàéëîâîé ñèñòåìå |
Dword kos_FileSystemAccess( kosFileInfo *fileInfo ) |
{ |
// Dword result; |
// |
__asm{ |
mov eax, 70 |
mov ebx, fileInfo |
int 0x40 |
// mov result, eax |
} |
// |
// return result; |
} |
// ôóíêöèÿ 63 âûâîä ñèìâîëÿ â îêíî îòëàäêè |
void kos_DebugOutChar( char ccc ) |
{ |
// |
__asm{ |
mov eax, 63 |
mov ebx, 1 |
mov cl, ccc |
int 0x40 |
} |
} |
// ôóíêöèÿ 66 ðåæèì ïîëó÷åíèÿ äàííûõ îò êëàâèàòóðû |
void kos_SetKeyboardDataMode( Dword mode ) |
{ |
// |
__asm{ |
mov eax, 66 |
mov ebx, 1 |
mov ecx, mode |
int 0x40 |
} |
} |
// âûâîä ñòðîêè â îêíî îòëàäêè |
void rtlDebugOutString( char *str ) |
{ |
// |
for ( ; str[0] != 0; str++ ) |
{ |
kos_DebugOutChar( str[0] ); |
} |
// |
kos_DebugOutChar( 13 ); |
kos_DebugOutChar( 10 ); |
} |
// ôóíêöèÿ 64 èçìåíåíèå êîëè÷åñòâà ïàìÿòè, âûäåëåííîé äëÿ ïðîãðàììû |
bool kos_ApplicationMemoryResize( Dword targetSize ) |
{ |
Dword result; |
// |
__asm{ |
mov eax, 64 |
mov ebx, 1 |
mov ecx, targetSize |
int 0x40 |
mov result, eax |
} |
// |
return result == 0; |
} |
// ôóíêöèÿ 67 èçìåíèòü ïàðàìåòðû îêíà, ïàðàìåòð == -1 íå ìåíÿåòñÿ |
void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY ) |
{ |
// |
__asm{ |
mov eax, 67 |
mov ebx, x |
mov ecx, y |
mov edx, sizeX |
mov esi, sizeY |
int 0x40 |
} |
} |
void kos_InitHeap() |
{ |
__asm{ |
mov eax, 68 |
mov ebx, 11 |
int 0x40 |
} |
} |
// âûçîâ àáñòðàêòíîãî ìåòîäà |
int __cdecl _purecall() |
{ |
rtlDebugOutString( pureCallMessage ); |
kos_ExitApp(); |
return 0; |
} |
// âûçîâ ñòàòè÷åñêèõ èíèöèàëèçàòîðîâ |
// çàîäíî èíèöèàëèçàöèÿ ãåíåðàòîðà ñëó÷àéíûõ ÷èñåë |
//#pragma section(".CRT$XCA",long,read,write) |
//#pragma section(".CRT$XCZ",long,read,write) |
#pragma data_seg(".CRT$XCA") |
#pragma data_seg(".CRT$XCZ") |
typedef void (__cdecl *_PVFV)(void); |
__declspec(allocate(".CRT$XCA")) _PVFV __xc_a[1] = { NULL }; |
__declspec(allocate(".CRT$XCZ")) _PVFV __xc_z[1] = { NULL }; |
// |
#pragma comment(linker, "/merge:.CRT=.rdata") |
// |
void crtStartUp() |
{ |
// âûçûâàåì èíèöèàëèçàòîðû ïî ñïèñêó, NULL'û èãíîðèðóåì |
for ( _PVFV *pbegin = __xc_a; pbegin < __xc_z; pbegin++ ) |
{ |
// |
if ( *pbegin != NULL ) |
(**pbegin)(); |
} |
// èíèöèàëèçèðóåì ãåíåðàòîð ñëó÷àéíûõ ÷èñåë |
rtlSrand( kos_GetSystemClock() ); |
// ïóòü ê ôàéëó ïðîöåññà |
kosExePath = *((char **)0x20); |
// âûçîâ ãëàâíîé ôóíêöèè ïðèëîæåíèÿ |
kos_Main(); |
// âûõîä |
kos_ExitApp(); |
} |
/programs/other/table/kosSyst.h |
---|
0,0 → 1,214 |
#pragma once |
typedef unsigned __int32 Dword; |
typedef unsigned __int16 Word; |
typedef unsigned __int8 Byte; |
//typedef unsigned __int32 size_t; |
#define NULL 0 |
#define MAX_PATH 256 |
#define FO_READ 0 |
#define FO_WRITE 2 |
#define EM_WINDOW_REDRAW 1 |
#define EM_KEY_PRESS 2 |
#define EM_BUTTON_CLICK 4 |
#define EM_APP_CLOSE 8 |
#define EM_DRAW_BACKGROUND 16 |
#define EM_MOUSE_EVENT 32 |
#define EM_IPC 64 |
#define EM_NETWORK 256 |
#define KM_CHARS 0 |
#define KM_SCANS 1 |
#define WRS_BEGIN 1 |
#define WRS_END 2 |
#define PROCESS_ID_SELF -1 |
#define abs(a) (a<0?0-a:a) |
extern "C" double acos(double x); |
extern "C" double asin(double x); |
extern "C" double floor(double x); |
extern "C" double round(double x); |
#pragma function(acos,asin) |
#if _MSC_VER > 1200 |
#pragma function(floor) |
#endif |
struct kosFileInfo |
{ |
Dword rwMode; |
Dword OffsetLow; |
Dword OffsetHigh; |
Dword dataCount; |
Byte *bufferPtr; |
char fileURL[MAX_PATH]; |
}; |
struct RGB |
{ |
Byte b; |
Byte g; |
Byte r; |
// |
RGB() {}; |
// |
RGB( Dword value ) |
{ |
r = (Byte)(value >> 16); |
g = (Byte)(value >> 8); |
b = (Byte)value; |
}; |
// |
bool operator != ( RGB &another ) |
{ |
return this->b != another.b || this->g != another.g || this->r != another.r; |
}; |
// |
bool operator == ( RGB &another ) |
{ |
return this->b == another.b && this->g == another.g && this->r == another.r; |
}; |
}; |
union sProcessInfo |
{ |
Byte rawData[1024]; |
struct |
{ |
Dword cpu_usage; |
Word window_stack_position; |
Word window_stack_value; |
Word reserved1; |
char process_name[12]; |
Dword memory_start; |
Dword used_memory; |
Dword PID; |
Dword x_start; |
Dword y_start; |
Dword x_size; |
Dword y_size; |
Word slot_state; |
} processInfo; |
}; |
// |
extern char *kosExePath; |
// |
void crtStartUp(); |
// |
int __cdecl _purecall(); |
// |
int __cdecl atexit( void (__cdecl *func )( void )); |
// |
void rtlSrand( Dword seed ); |
Dword rtlRand( void ); |
// |
char * __cdecl strcpy( char *target, const char *source ); |
int __cdecl strlen( const char *line ); |
char * __cdecl strrchr( const char * string, int c ); |
#if _MSC_VER < 1400 |
extern "C" void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount ); |
extern "C" void memset( Byte *dst, Byte filler, Dword count ); |
//#pragma intrinsic(memcpy,memset) |
#else |
void * __cdecl memcpy( void *dst, const void *src, size_t bytesCount ); |
void memset( Byte *dst, Byte filler, Dword count ); |
#endif |
void sprintf( char *Str, char* Format, ... ); |
// |
Dword rtlInterlockedExchange( Dword *target, Dword value ); |
// ôóíêöèÿ -1 çàâåðøåíèÿ ïðîöåññà |
void kos_ExitApp(); |
// ôóíêöèÿ 0 |
void kos_DefineAndDrawWindow( |
Word x, Word y, |
Word sizeX, Word sizeY, |
Byte mainAreaType, Dword mainAreaColour, |
Byte headerType, Dword headerColour, |
Dword borderColour |
); |
// ôóíêöèÿ 1 ïîñòàâèòü òî÷êó |
void kos_PutPixel( Dword x, Dword y, Dword colour ); |
// ôóíêöèÿ 2 ïîëó÷èòü êîä íàæàòîé êëàâèøè |
bool kos_GetKey( Byte &keyCode ); |
// ôóíêöèÿ 3 ïîëó÷èòü âðåìÿ |
Dword kos_GetSystemClock(); |
// ôóíêöèÿ 4 |
void kos_WriteTextToWindow( |
Word x, Word y, |
Byte fontType, |
Dword textColour, |
char *textPtr, |
Dword textLen |
); |
// ôóíêöèÿ 7 íàðèñîâàòü èçîáðàæåíèå |
void kos_PutImage( RGB * imagePtr, Word sizeX, Word sizeY, Word x, Word y ); |
// ôóíêöèÿ 8 îïðåäåëèòü êíîïêó |
void kos_DefineButton( Word x, Word y, Word sizeX, Word sizeY, Dword buttonID, Dword colour ); |
// ôóíêöèÿ 5 ïàóçà, â ñîòûõ äîëÿõ ñåêóíäû |
void kos_Pause( Dword value ); |
// ôóíêöèÿ 9 - èíôîðìàöèÿ î ïðîöåññå |
Dword kos_ProcessInfo( sProcessInfo *targetPtr, Dword processID = PROCESS_ID_SELF ); |
// ôóíêöèÿ 10 |
Dword kos_WaitForEvent(); |
// ôóíêöèÿ 11 |
Dword kos_CheckForEvent(); |
// ôóíêöèÿ 12 |
void kos_WindowRedrawStatus( Dword status ); |
// ôóíêöèÿ 13 íàðèñîâàòü ïîëîñó |
void kos_DrawBar( Word x, Word y, Word sizeX, Word sizeY, Dword colour ); |
// ôóíêöèÿ 17 |
bool kos_GetButtonID( Dword &buttonID ); |
// ôóíêöèÿ 23 |
Dword kos_WaitForEvent( Dword timeOut ); |
// |
enum eNumberBase |
{ |
nbDecimal = 0, |
nbHex, |
nbBin |
}; |
// ïîëó÷åíèå èíôîðìàöèè î ñîñòîÿíèè "ìûøè" ôóíêöèÿ 37 |
void kos_GetMouseState( Dword & buttons, int & cursorX, int & cursorY ); |
// ôóíêöèÿ 40 óñòàíîâèòü ìàñêó ñîáûòèé |
void kos_SetMaskForEvents( Dword mask ); |
// ôóíêöèÿ 47 âûâåñòè â îêíî ïðèëîæåíèÿ ÷èñëî |
void kos_DisplayNumberToWindow( |
Dword value, |
Dword digitsNum, |
Word x, |
Word y, |
Dword colour, |
eNumberBase nBase = nbDecimal, |
bool valueIsPointer = false |
); |
// ôóíêöèÿ 58 äîñòóï ê ôàéëîâîé ñèñòåìå |
Dword kos_FileSystemAccess( kosFileInfo *fileInfo ); |
// ôóíêöèÿ 63 |
void kos_DebugOutChar( char ccc ); |
// |
void rtlDebugOutString( char *str ); |
// ôóíêöèÿ 64 èçìåíèòü ïàðàìåòðû îêíà, ïàðàìåòð == -1 íå ìåíÿåòñÿ |
void kos_ChangeWindow( Dword x, Dword y, Dword sizeX, Dword sizeY ); |
// ôóíêöèÿ 67 èçìåíåíèå êîëè÷åñòâà ïàìÿòè, âûäåëåííîé äëÿ ïðîãðàììû |
bool kos_ApplicationMemoryResize( Dword targetSize ); |
// ôóíêöèÿ 66 ðåæèì ïîëó÷åíèÿ äàííûõ îò êëàâèàòóðû |
void kos_SetKeyboardDataMode( Dword mode ); |
void kos_InitHeap(); |
// |
void kos_Main(); |
/programs/other/table/math2.cpp |
---|
0,0 → 1,83 |
#include <math.h> |
#include "kosSyst.h" |
extern "C" int _fltused = 0; |
double acos(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
fld1 |
fadd st, st(1) |
fld1 |
fsub st, st(2) |
fmulp st(1), st |
fsqrt |
fxch st(1) |
fpatan |
} |
} |
double asin(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
fld1 |
fadd st, st(1) |
fld1 |
fsub st, st(2) |
fmulp st(1), st |
fsqrt |
fpatan |
ret |
} |
} |
#if _MSC_VER <= 1200 |
extern "C" double _ftol(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
push 1F3Fh |
fstcw word ptr [esp+2] |
fldcw word ptr [esp] |
frndint |
fldcw word ptr [esp+2] |
add esp, 4 |
} |
} |
#endif |
double ceil(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
push 1B3Fh |
fstcw word ptr [esp+2] |
fldcw word ptr [esp] |
frndint |
fldcw word ptr [esp+2] |
add esp, 4 |
} |
} |
double floor(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
push 173Fh |
fstcw word ptr [esp+2] |
fldcw word ptr [esp] |
frndint |
fldcw word ptr [esp+2] |
add esp, 4 |
} |
} |
double round(double x) |
{ |
__asm { |
fld qword ptr [esp+4] |
push 133Fh |
fstcw word ptr [esp+2] |
fldcw word ptr [esp] |
frndint |
fldcw word ptr [esp+2] |
add esp, 4 |
} |
} |
/programs/other/table/mcsmemm.cpp |
---|
0,0 → 1,354 |
// memman.cpp : Defines the entry point for the console application. |
// |
#include "kosSyst.h" |
#include "mcsmemm.h" |
void * __cdecl operator new ( size_t count, size_t element_size ) |
{ |
return allocmem( (Dword)(count * element_size) ); |
} |
void * __cdecl operator new [] ( size_t amount ) |
{ |
return allocmem( (Dword)amount ); |
} |
void * __cdecl operator new ( size_t amount ) |
{ |
return allocmem( (Dword)amount ); |
} |
void __cdecl operator delete ( void *pointer ) |
{ |
if ( pointer != NULL ) freemem( pointer ); |
} |
void __cdecl operator delete [] ( void *pointer ) |
{ |
if ( pointer != NULL ) freemem( pointer ); |
} |
Byte *allocmem( Dword reqsize ) |
{ |
__asm |
{ |
mov eax, 68 |
mov ebx, 12 |
mov ecx, reqsize |
int 0x40 |
} |
} |
Dword freemem( void *vaddress ) |
{ |
__asm |
{ |
mov eax, 68 |
mov ebx, 13 |
mov ecx, vaddress |
int 0x40 |
} |
} |
/* |
// |
Dword mmMutex = FALSE; |
MemBlock *rootfree = NULL; |
MemBlock *rootuser = NULL; |
bool mmInitialized = false; |
Byte *mmHeapTop = NULL; |
// |
Byte * AllocMemFromSystem( Dword reqSize ) |
{ |
Byte *result; |
sProcessInfo pInfo; |
// |
if ( mmInitialized ) |
{ |
result = mmHeapTop; |
} |
else |
{ |
// |
kos_ProcessInfo( &pInfo ); |
// |
result = (Byte *)(pInfo.processInfo.used_memory + 1); |
// |
mmInitialized = true; |
} |
// |
if ( ! kos_ApplicationMemoryResize( ((Dword)result) + reqSize ) ) |
{ |
result = NULL; |
} |
// |
mmHeapTop = result + reqSize; |
// |
return result; |
} |
// |
Byte *allocmem( Dword reqsize ) |
{ |
MemBlock *BlockForCheck; |
MemBlock *LastKnownGood; |
Dword tail; |
Byte *address; |
//ïîäðîâíÿåì ðàçìåð |
if( ( tail = reqsize % SIZE_ALIGN ) != 0 ) |
{ |
reqsize += SIZE_ALIGN - tail; |
} |
LastKnownGood = NULL; |
// æä¸ì îñâîáîæäåíèÿ ìüþòåêñà |
while ( rtlInterlockedExchange( &mmMutex, TRUE ) ) |
{ |
// |
kos_Pause( 1 ); |
} |
//èùåì ïîäõîäÿùèé ñâîáîäíûé áëîê |
if( rootfree != NULL ) |
{ |
for ( BlockForCheck = rootfree; ; BlockForCheck = BlockForCheck->Next ) |
{ |
if ( BlockForCheck->Size >= reqsize ) |
{ |
//íàøëè |
if ( LastKnownGood != NULL ) |
{ |
if ( LastKnownGood->Size >= BlockForCheck->Size ) |
LastKnownGood = BlockForCheck; |
} |
else |
LastKnownGood = BlockForCheck; |
if ( LastKnownGood->Size == reqsize ) |
break; |
} |
if ( BlockForCheck->Next == NULL ) |
break; |
} |
} |
if ( LastKnownGood != NULL ) |
{ |
//ïðîâåðèì íàéäåííûé áëîê íà âîçìîæíîñòü äåëåíèÿ |
tail = LastKnownGood->Size - reqsize; |
if ( tail >= ( sizeof(MemBlock) + SIZE_ALIGN ) ) |
{ |
//áóäåì ðàçáèâàòü |
BlockForCheck = (MemBlock *)( ( (Byte *)LastKnownGood ) + tail ); |
BlockForCheck->Size = reqsize; |
//âñòàâèì çàíÿòûé áëîê â íà÷àëî ñïèñêà çàíàòûõ áëîêîâ |
if( rootuser != NULL ) |
{ |
BlockForCheck->Next = rootuser; |
rootuser->Previous = BlockForCheck; |
BlockForCheck->Previous = NULL; |
rootuser = BlockForCheck; |
} |
else |
{ |
rootuser = BlockForCheck; |
BlockForCheck->Next = NULL; |
BlockForCheck->Previous = NULL; |
} |
//èçìåíèì ðàçìåð îñòàâøåéñÿ ÷àñòè |
LastKnownGood->Size = tail - sizeof(MemBlock); |
address = ( (Byte *)BlockForCheck ) + sizeof(MemBlock); |
// îòïóñòèì ìüþòåêñ |
rtlInterlockedExchange( &mmMutex, FALSE ); |
return address; |
} |
else |
{ |
//ïåðåìåñòè áëîê èç î÷åðåäè ñâîáîäíûõ â íà÷àëî î÷åðåäè çàíÿòûõ |
//ñíà÷àëà âûêèíåì åãî èç î÷åðåäè ñâîáîäíûõ |
if ( LastKnownGood->Previous != NULL ) |
{ |
LastKnownGood->Previous->Next = LastKnownGood->Next; |
} |
else |
{ |
//áëîê ñòîèò â íà÷àëå î÷åðåäè |
rootfree = LastKnownGood->Next; |
} |
if( LastKnownGood->Next != NULL ) |
{ |
LastKnownGood->Next->Previous = LastKnownGood->Previous; |
} |
//òåïåðü âñòàâèì åãî â î÷åðåäü çàíÿòûõ |
if( rootuser != NULL ) |
{ |
LastKnownGood->Next = rootuser; |
rootuser->Previous = LastKnownGood; |
LastKnownGood->Previous = NULL; |
rootuser = LastKnownGood; |
} |
else |
{ |
rootuser = LastKnownGood; |
LastKnownGood->Next = NULL; |
LastKnownGood->Previous = NULL; |
} |
// |
address = ( (Byte *)LastKnownGood ) + sizeof(MemBlock); |
// îòïóñòèì ìüþòåêñ |
rtlInterlockedExchange( &mmMutex, FALSE ); |
return address; |
} |
} |
else |
{ |
//íàäî ïîëó÷èòü åù¸ êóñî÷åê ïàìÿòè |
LastKnownGood = (MemBlock *)AllocMemFromSystem( reqsize + sizeof(MemBlock) ); |
// |
if( LastKnownGood != NULL ) |
{ |
LastKnownGood->Size = reqsize; |
//òåïåðü âñòàâèì åãî â î÷åðåäü çàíÿòûõ |
if( rootuser != NULL ) |
{ |
LastKnownGood->Next = rootuser; |
rootuser->Previous = LastKnownGood; |
LastKnownGood->Previous = NULL; |
rootuser = LastKnownGood; |
} |
else |
{ |
rootuser = LastKnownGood; |
LastKnownGood->Next = NULL; |
LastKnownGood->Previous = NULL; |
} |
address = ( (Byte *)LastKnownGood ) + sizeof(MemBlock); |
// îòïóñòèì ìüþòåêñ |
rtlInterlockedExchange( &mmMutex, FALSE ); |
return address; |
} |
} |
// îòïóñòèì ìüþòåêñ |
rtlInterlockedExchange( &mmMutex, FALSE ); |
// |
rtlDebugOutString( "allocmem failed." ); |
kos_ExitApp(); |
// |
return NULL; |
} |
// |
Dword freemem( void *vaddress ) |
{ |
Dword result; |
Byte *checknext, *address = (Byte *)vaddress; |
// æä¸ì îñâîáîæäåíèÿ ìüþòåêñà |
while ( rtlInterlockedExchange( &mmMutex, TRUE ) ) |
{ |
// |
kos_Pause( 1 ); |
} |
MemBlock *released = (MemBlock *)( address - sizeof(MemBlock) ); |
result = released->Size; |
//óáèðàåì áëîê èç ñïèñêà çàíÿòûõ |
if ( released->Previous != NULL ) |
{ |
released->Previous->Next = released->Next; |
} |
else |
{ |
rootuser = released->Next; |
} |
if ( released->Next != NULL ) |
{ |
released->Next->Previous = released->Previous; |
} |
//çàêèíåì òåïåðü ýòîò áëîê â ñïèñîê ñâîáîäíûõ |
released->Next = rootfree; |
released->Previous = NULL; |
rootfree = released; |
if ( released->Next != NULL ) |
{ |
released->Next->Previous = released; |
} |
//òåïåðü ïîèùåì ñìåæíûå ñâîáîäíûå áëîêè |
checknext = (Byte *)(rootfree) + ( rootfree->Size + sizeof(MemBlock) ); |
// |
for ( released = rootfree->Next; released != NULL; released = released->Next ) |
{ |
if ( checknext == (Byte *)released ) |
{ |
//ñîáèðàåì áëîêè âìåñòå |
//ñíà÷àëà âûêèíåì èç î÷åðåäè ñâîáîäíûõ |
released->Previous->Next = released->Next; |
if( released->Next != NULL ) |
{ |
released->Next->Previous = released->Previous; |
} |
//òåïåðü óâåëè÷èì ðàçìåð êîðíåâîãî áëîêà |
rootfree->Size += released->Size + sizeof(MemBlock); |
break; |
} |
} |
//åñëè íàäî, ïîèùåì áëîêè ïåðåä òåêùèì. |
checknext = (Byte *)(rootfree); |
// |
if ( released == NULL ) |
{ |
for ( released = rootfree->Next; released != NULL; released = released->Next ) |
{ |
if ( checknext == (Byte *)released + ( released->Size + sizeof(MemBlock) ) ) |
{ |
//ñîáèðàåì áëîêè âìåñòå |
//óâåëè÷èì ðàçìåð áëîêà |
released->Size += rootfree->Size + sizeof(MemBlock); |
//òåïåðü âûêèíåì èç î÷åðåäè ñâîáîäíûõ |
released->Previous->Next = released->Next; |
if ( released->Next != NULL ) |
{ |
released->Next->Previous = released->Previous; |
} |
//è çàêèíåì åãî â íà÷àëî î÷åðåäè âìåñòî ïðèñîåäèí¸ííîãî áëîêà èç êîðíÿ ñïèñêà |
if ( rootfree->Next != NULL ) |
{ |
rootfree->Next->Previous = released; |
} |
released->Next = rootfree->Next; |
released->Previous = NULL; |
rootfree = released; |
break; |
} |
} |
} |
// îòïóñòèì ìüþòåêñ |
rtlInterlockedExchange( &mmMutex, FALSE ); |
return result; |
} |
*/ |
/programs/other/table/mymath.h |
---|
0,0 → 1,95 |
/* Rocket Forces |
* Filename: mymath.h |
* Version 0.1 |
* Copyright (c) Serial 2007 |
*/ |
extern "C" int _fltused = 0; |
#define M_PI 3.14159265358979323846 |
inline double sin(double x) |
{ |
__asm fld x |
__asm fsin |
} |
inline double cos(double x) |
{ |
__asm fld x |
__asm fcos |
} |
inline double sqrt(double x) |
{ |
__asm fld x |
__asm fsqrt |
} |
inline double acos(double x) |
{ |
__asm fld x |
__asm fld st(0) |
__asm fmul st,st(1) |
__asm fld1 |
__asm fsubrp st(1),st(0) |
__asm fsqrt |
__asm fxch st(1) |
__asm fpatan |
} |
inline double atan(double x) |
{ |
double res = acos(1 / sqrt(1 + x * x)); |
if (x < 0) |
{ |
res *= -1; |
} |
return res; |
} |
inline int round_int(double x) |
{ |
int i; |
static const float round_to_nearest = 0.5f; |
__asm |
{ |
fld x |
fadd st, st(0) |
fadd round_to_nearest |
fistp i |
sar i, 1 |
} |
return i; |
} |
inline int floor_int(double x) |
{ |
int i; |
static const float round_toward_m_i = -0.5f; |
__asm |
{ |
fld x |
fadd st, st (0) |
fadd round_toward_m_i |
fistp i |
sar i, 1 |
} |
return i; |
} |
inline int ceil_int(double x) |
{ |
int i; |
static const float round_toward_p_i = -0.5f; |
__asm |
{ |
fld x |
fadd st, st (0) |
fsubr round_toward_p_i |
fistp i |
sar i, 1 |
} |
return (-i); |
} |
/programs/other/table/parser.cpp |
---|
0,0 → 1,925 |
#include "func.h" |
#include "parser.h" |
//#include <math.h> |
//#include <stdlib.h> |
//#include <stdio.h> |
// token types |
#define DELIMITER 1 |
#define VARIABLE 2 |
#define NUMBER 3 |
#define FUNCTION 4 |
#define FINISHED 10 |
//#define allocmem(x) malloc(x) |
//#define freemem(x) free(x) |
double epsilon = 1e-6; |
// structure for most parser functions |
char token[80]; |
int token_type; |
char *prog; |
int code; // error code |
variable_callback *find_var; |
struct double_list |
{ |
double val; |
int code; // êîä îøèáêè |
double_list *next; |
}; |
double tg(double d) |
{ |
double cosd = cos(d); |
if (fabs(cosd) < epsilon) |
{ |
serror(ERR_OVERFLOW); |
return 0.0; |
} |
return sin(d) / cosd; |
} |
double ctg(double d) |
{ |
double sind = sin(d); |
if (fabs(sind) < epsilon) |
{ |
serror(ERR_OVERFLOW); |
return 0.0; |
} |
return cos(d) / sind; |
} |
double exp(double x) |
{ |
__asm { |
fld x |
FLDL2E |
FMUL |
FLD st(0) |
FLD1 |
FXCH |
FPREM |
F2XM1 |
fadd |
FSCALE |
FSTP st(1) |
} |
} |
double log(double x) |
{ |
//return 0.0; |
if (x <= 0) |
{ |
serror(ERR_OVERFLOW); |
//return 0.0; |
__asm { |
fldz |
} |
} |
__asm { |
FLD1 |
FLD x |
FYL2X |
FLDLN2 |
FMUL |
} |
} |
double sqrt(double x) |
{ |
if (x < 0) |
{ |
serror(ERR_BADPARAM); |
__asm { |
fldz |
} |
} |
__asm { |
fld x |
fsqrt |
} |
} |
double atan(double x) |
{ |
serror(ERR_GENERAL); |
return 0.0; // â ëîì |
} |
double pow(double x, double y) |
{ |
return exp(y * log(x)); // |
} |
double func_pi() |
{ |
return 3.14159265358979; |
} |
double func_eps() |
{ |
return epsilon; |
} |
double func_if(double_list *p) |
{ |
double_list *a, *b, *c; |
a = p; |
b = a->next; |
if (!b) |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
c = b->next; |
if (!c || c->next) |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
if (a->val != 0.0) |
{ |
if (b->code) |
code = b->code; |
return b->val; |
} |
else |
{ |
if (c->code) |
code = c->code; |
return c->val; |
} |
} |
double sum(double_list *p) |
{ |
double res = 0.0; |
while (p) |
{ |
res += p->val; |
if (p->code) |
code = p->code; |
p = p->next; |
} |
return res; |
} |
double func_min(double_list *p) |
{ |
if (!p) |
serror(ERR_BADPARAM); |
double res = p->val; |
p = p->next; |
while (p) |
{ |
if (p->code) |
code = p->code; |
if (p->val < res) |
res = p->val; |
p = p->next; |
} |
return res; |
} |
double func_max(double_list *p) |
{ |
if (!p) |
serror(ERR_BADPARAM); |
double res = p->val; |
p = p->next; |
while (p) |
{ |
if (p->code) |
code = p->code; |
if (p->val > res) |
res = p->val; |
p = p->next; |
} |
return res; |
} |
double avg(double_list *p) |
{ |
double res = 0.0; |
int count = 0; |
while (p) |
{ |
if (p->code) |
code = p->code; |
res += p->val; |
count++; |
p = p->next; |
} |
return res / count; |
} |
double func_isnull(char *str) |
{ |
if (code != 0) |
return 0.0; |
double tmp = find_var(str); |
int c = code; |
code = 0; |
if (c != 0) |
return 1.0; |
return 0.0; |
} |
const double HALF = 0.5; |
double func_ceil(double val) // õîòåë round, à ïîëó÷èëñÿ ceil... |
{ |
int x; |
__asm fld val |
__asm fld HALF // äà, êðèâîðóêî ^_^ |
__asm fadd |
__asm fistp x |
__asm fild x |
} |
double func_round(double val) |
{ |
int x; |
__asm fld val |
__asm fld epsilon |
__asm fadd |
__asm fistp x |
__asm fild x |
} |
const double ALMOST_HALF = 0.5 - epsilon; |
double func_floor(double val) |
{ |
int x; |
__asm fld val |
__asm fld ALMOST_HALF |
__asm fsub |
__asm fistp x |
__asm fild x |
} |
double logic_xor(double a, double b) |
{ |
if (a == 0.0) |
if (b == 0.0) |
return 0.0; |
else |
return 1.0; |
else |
if (b == 0.0) |
return 1.0; |
else |
return 0.0; |
} |
double logic_and(double a, double b) |
{ |
if (a == 0.0) |
return 0.0; |
else |
if (b == 0.0) |
return 0.0; |
else |
return 1.0; |
} |
double logic_or(double a, double b) |
{ |
if (a == 0.0) |
if (b == 0.0) |
return 0.0; |
else |
return 1.1; |
else |
return 1.0; |
} |
double rand_seed; |
double func_rand(double max) |
{ |
double q = (257.0 * rand_seed + 739.0); // ÷èñëà îò áàëäû. íàäî âñòàâèòü ïðàâèëüíûå. |
rand_seed = q - 65536.0 * func_floor(q / 65536.0); // äëÿ õîðîøåãî ðàñïðåäåëåíèÿ |
return q - max * func_floor(q / max); // äëÿ ìîäóëÿ |
} |
double func_case(double_list *p) |
{ |
if (!p || !p->next) |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
double x = p->val; |
int count = (int)p->next->val; |
int i, k; |
double_list *cur = p->next->next; |
k = count; |
for (i = 0; i < count; i++) |
{ |
if (!cur) |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
if (fabs(x - cur->val) < epsilon) |
{ |
if (k != count + 1) |
{ |
serror(ERR_GENERAL); |
return 0.0; |
} |
k = i; |
} |
cur = cur->next; |
} |
for (i = 0; i < k; i++) |
{ |
if (!cur) |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
cur = cur->next; |
} |
if (!cur) // ïðîâåðêè áèï. äîñòàëè áèï. |
{ |
serror(ERR_BADPARAM); |
return 0.0; |
} |
if (cur->code) |
code = cur->code; |
return cur->val; |
} |
#define INF_ARGS -1 |
#define STR_ARG -2 |
// represents general mathematical function |
typedef double(*matfunc0)(); |
typedef double(*matfunc)(double); |
typedef double(*matfunc2)(double,double); |
typedef double(*matfunc3)(double,double,double); |
typedef double(*matfunc_inf)(double_list*); |
typedef double(*matfunc_str)(char*); |
// used to link function name to the function |
typedef struct |
{ |
char name[10]; |
int args; |
void * f; |
} func; |
// the list of functions |
const int max_func = 29; |
func functions[max_func] = |
{ |
"", 1, NULL, // íå ïîìíþ, ñ êàêîé öåëüþ |
"sin", 1, &sin, |
"cos", 1, &cos, |
"exp", 1, &exp, |
"sqrt", 1, &sqrt, |
"log", 1, &log, |
"tg", 1, &tg, |
"ctg", 1, &ctg, |
"arcsin", 1, &asin, |
"arccos", 1, &acos, |
"arctg", 1, &atan, // íå ðåàëèçîâàíî. âîçâðàùàåò îøèáêó ERR_GENERAL |
"abs", 1, &fabs, |
"pow", 2, &pow, |
"if", INF_ARGS, &func_if, |
"sum",INF_ARGS,&sum, |
"isnull",STR_ARG,&func_isnull, // ñëåãêà ÷/æ |
"min",INF_ARGS,&func_min, |
"max",INF_ARGS,&func_max, |
"avg",INF_ARGS,&avg, |
"ceil",1,&func_ceil, |
"round",1,&func_round, |
"floor",1,&func_floor, |
"and",2,&logic_and, |
"or",2,&logic_or, |
"xor",2,&logic_xor, |
"rand",1,&func_rand, |
"case",INF_ARGS,&func_case, |
"pi",0,&func_pi, |
"eps",0,&func_eps |
}; |
// all delimiters |
#define MAXDELIM 17 |
const char delim[MAXDELIM]="+-*^/%=;(),><#! "; // not bad words |
int isdelim(char c) |
{ |
//return strchr(delim, c) != 0; |
for (int i = 0; i < MAXDELIM; i++) |
if (c == delim[i]) |
return 1; |
return 0; |
} |
int isdigit(char c) |
{ |
return (c >= '0' && c <= '9'); |
} |
int isalpha2(char c) |
{ |
return ((c >= 'a' && c <= 'z') |
|| (c >= 'A' && c <= 'Z') || (c=='$')); |
} |
int iswhite(char c) |
{ |
return (c==' ' || c=='\t'); |
} |
void serror(int acode) |
{ |
if (acode != 0) |
code = acode; |
} |
void set_exp(char *exp) |
{ |
prog = exp; |
} |
int get_token() |
{ |
int tok; |
char *temp; |
(token_type) = 0; |
tok = 0; |
temp = (token); |
if (*(prog) == '\0') |
{ |
*(token) = 0; |
tok = FINISHED; |
return ((token_type) = DELIMITER); |
} |
while (iswhite(*(prog))) ++(prog); |
if (isdelim(*(prog))) |
{ |
char t=*temp = *(prog); |
(prog)++; |
temp++; |
if ((t == '>' || t == '<' || t == '!') && (*prog) && (*prog == '=')) |
{ |
*temp = *(prog); |
(prog)++; |
temp++; |
} |
*temp = 0; |
return ((token_type) = DELIMITER); |
} |
if (isdigit(*(prog))) |
{ |
while (!isdelim(*(prog))) |
*temp++=*(prog)++; |
*temp = '\0'; |
return ((token_type) = NUMBER); |
} |
if (isalpha2(*(prog))) |
{ |
while (!isdelim(*(prog))) |
*temp++=*(prog)++; |
(token_type) = VARIABLE; |
} |
*temp = '\0'; |
if ((token_type) == VARIABLE) |
{ |
tok = look_up((token)); |
if (tok) |
(token_type) = FUNCTION; |
} |
return (token_type); |
} |
double sign(double d) |
{ |
if (d > 0.0) |
return 1.0; |
if (d < 0.0) |
return -1.0; |
return 0.0; |
} |
void putback() |
{ |
char *t; |
t = (token); |
for (;*t;t++) |
(prog)--; |
} |
int get_exp(double *hold) |
{ |
code = 0; |
get_token(); |
if (!*(token)) |
{ |
return 0; |
} |
level1( hold); |
putback(); |
return code==0; |
} |
void level1(double *hold) |
{ |
char op[2]; |
double h; |
level1_5( hold); |
while (op[0] = *token, op[1] = (*(token+1)) ? *(token + 1) : 0, |
*op == '<' || *op == '>' || *op == '=' || *op == '#' || *op == '!') |
{ |
get_token(); |
level1_5( &h); |
logic(op, hold, &h); |
} |
} |
void level1_5(double *hold) |
{ |
char op; |
op = 0; |
if (((token_type) == DELIMITER) && *(token) == '!') |
{ |
op = *(token); |
get_token(); |
} |
level2( hold); |
if (op) |
{ |
if (*hold == 0.0) |
*hold = 1.0; |
else |
*hold = 0.0; |
} |
} |
void level2(double *hold) |
{ |
char op; |
double h; |
level3( hold); |
while ((op=*(token)) == '+' || op == '-') |
{ |
get_token(); |
level3( &h); |
arith(op, hold, &h); |
} |
} |
void level3(double *hold) |
{ |
char op; |
double h; |
level4( hold); |
while ((op=*(token)) == '*' || op == '/' || op == '%') |
{ |
get_token(); |
level4( &h); |
arith( op, hold, &h); |
} |
} |
void level4(double *hold) |
{ |
double h; |
level5( hold); |
if (*(token) == '^') |
{ |
get_token(); |
level5( &h); |
arith( '^', hold, &h); |
} |
} |
void level5(double *hold) |
{ |
char op; |
op = 0; |
if (((token_type) == DELIMITER) && *(token) == '+' || *(token) == '-') |
{ |
op = *(token); |
get_token(); |
} |
level6( hold); |
if (op) |
unary(op, hold); |
} |
void level6(double *hold) |
{ |
if ((*(token) == '(') && ((token_type) == DELIMITER)) |
{ |
get_token(); |
level1( hold); |
if (*(token) != ')') |
serror( ERR_NOBRACKET); |
get_token(); |
} |
else |
primitive( hold); |
} |
void calc_function(double *hold) |
{ |
double_list *args = NULL, *last = NULL, *t; |
double d; |
int i,argc=0,save_code; |
save_code = code; |
code = 0; |
i = look_up(token); |
if (i == 0) |
serror(ERR_BADFUNCTION); // error |
get_token(); |
if (*(token) != '(') |
serror(ERR_NOBRACKET); // error |
//get_token(); |
if (functions[i].args == STR_ARG) |
{ |
get_token(); |
d = ((matfunc_str)(functions[i].f))(token); |
*hold = d; |
get_token(); |
if (save_code) |
code = save_code; |
return; |
} |
//last = args = (double_list*)malloc(sizeof(double_list)); |
//args->next = NULL; |
//level1(&args->val); |
//get_token(); |
argc=0; |
do |
{ |
get_token(); |
if (*token == ')') |
break; |
t = (double_list*)allocmem(sizeof(double_list)); |
code = 0; |
level1(&t->val); |
t->code = code; |
t->next = NULL; |
if (last) |
last->next = t; |
else |
args = t; |
last = t; |
argc++; |
} while (*token == ','); |
code = save_code; |
if (argc != functions[i].args && functions[i].args >= 0) |
{ |
serror(ERR_BADPARAM); |
} |
else |
{ |
switch (functions[i].args) |
{ |
case 0: |
d = ((matfunc0)(functions[i].f))(); |
break; |
case 1: |
d = ((matfunc)(functions[i].f))(args->val); |
break; |
case 2: |
d = ((matfunc2)(functions[i].f))(args->val,args->next->val); |
break; |
case 3: |
d = ((matfunc3)(functions[i].f))(args->val,args->next->val,args->next->next->val); |
break; |
case INF_ARGS: |
d = ((matfunc_inf)(functions[i].f))(args); |
break; |
} |
} |
t = args; |
while (t) |
{ |
args = t->next; |
freemem(t); |
t = args; |
} |
*hold = d; |
// else |
// serror( ERR_OVERFLOW); |
} |
void primitive(double *hold) |
{ |
switch (token_type) |
{ |
case VARIABLE: |
*hold = find_var(token); |
get_token(); |
return; |
case NUMBER: |
// |
*hold = atof((token)); |
//if (sscanf(token, "%lf", hold) != 1) |
*hold = convert(token); |
if (convert_error == ERROR) |
serror( ERR_BADNUMER); |
get_token(); |
return; |
case FUNCTION: |
calc_function( hold); |
if (*token != ')') |
serror(ERR_NOBRACKET); |
get_token(); |
return; |
default: // error |
return; |
} |
} |
void arith(char op, double *r, double *h) |
{ |
double t; |
switch(op) |
{ |
case '-': |
*r = *r - *h; |
break; |
case '+': |
*r = *r + *h; |
break; |
case '*': |
*r = *r * *h; |
break; |
case '/': |
if (fabs(*h) < epsilon) |
serror( ERR_OVERFLOW); |
else |
*r = (*r) / (*h); |
break; |
case '%': |
if (fabs(*h) < epsilon) |
serror( ERR_OVERFLOW); |
else |
{ |
t = func_floor ((*r) / (*h)); |
*r = *r - (t * (*h)); |
} |
break; |
case '^': |
*r = pow(*r, *h); |
break; |
} |
} |
void logic(char *op, double *r, double *h) |
{ |
double t; |
switch (*op) |
{ |
case '<': |
if (*(op+1) && *(op+1) == '=') |
t = *r <= *h + epsilon ? 1.0 : 0.0; |
else |
t = *r < *h - epsilon? 1.0 : 0.0; |
break; |
case '>': |
if (*(op+1) && *(op+1) == '=') |
t = *r >= *h - epsilon ? 1.0 : 0.0; |
else |
t = *r > *h + epsilon ? 1.0 : 0.0; |
break; |
case '=': |
t = fabs(*r - *h) <= epsilon ? 1.0 : 0.0; |
break; |
case '#': |
t = fabs(*r - *h) > epsilon ? 1.0 : 0.0; |
break; |
case '!': |
if (*(op+1) && *(op+1) == '=') |
t = fabs(*r - *h) > epsilon ? 1.0 : 0.0; |
else |
serror(ERR_GENERAL); |
break; |
} |
*r = t; |
} |
void unary(char op, double *r) |
{ |
if (op == '-') |
*r = -(*r); |
} |
bool strcmp(char *s1, char *s2) |
{ |
int i; |
if (s1 == NULL) |
if (s2 == NULL) |
return 0; |
else |
return 1; |
else |
if (s2 == NULL) |
return 1; |
for (i = 0;;i++) |
{ |
if (s1[i] == '\0') |
if (s2[i] == '\0') |
return 0; |
else |
return 1; |
else |
if (s2[i] == '\0') |
return 1; |
else |
{ |
if (s1[i] != s2[i]) |
return 1; |
} |
} |
return 0; |
} |
bool strncmp(char *s1, char *s2, int n) |
{ |
int i; |
if (s1 == NULL) |
if (s2 == NULL) |
return 0; |
else |
return 1; |
else |
if (s2 == NULL) |
return 1; |
for (i = 0;i<n;i++) |
{ |
if (s1[i] == '\0') |
if (s2[i] == '\0') |
return 0; |
else |
return 1; |
else |
if (s2[i] == '\0') |
return 1; |
else |
{ |
if (s1[i] != s2[i]) |
return 1; |
} |
} |
return 0; |
} |
int look_up(char *s) |
{ |
int i; |
for (i = 0; i < max_func; i++) |
if (strcmp(s, functions[i].name) == 0) |
return i; |
return 0; // search command/function name |
} |
/programs/other/table/parser.h |
---|
0,0 → 1,70 |
#pragma once |
// error codes |
#define ERR_BADFUNCTION -1 |
#define ERR_BADNUMER -2 |
#define ERR_GENERAL -3 |
#define ERR_NOBRACKET -4 |
#define ERR_BADVARIABLE -5 |
#define ERR_OVERFLOW -6 |
#define ERR_BADPARAM -7 |
typedef double variable_callback(char *s); |
void set_exp(char *exp); |
// puts the token back to line |
void putback(double *hold); |
// gets the expression. This function is used externally |
int get_exp(double *hold); |
// logic binary |
void level1(double *hold); |
// unary ! |
void level1_5(double *hold); |
// works with +- |
void level2(double *hold); |
// works with */% |
void level3(double *hold); |
// works with ^ |
void level4(double *hold); |
// works with () |
void level5(double *hold); |
// works with elementary tokens |
void level6(double *hold); |
// gets value of number, function or variable |
void primitive(double *hold); |
// performs arithmetical operation |
void arith(char op, double *r, double *h); |
void logic(char *op, double *r, double *h); |
// performs unary (one-operand) operation |
void unary(char op, double *r); |
// gets variable value by name |
extern variable_callback *find_var; |
extern double rand_seed; |
// stops execution of parser and return error code |
void serror(int code); |
// checks the function table to see if such a function exists |
int look_up(char *s); |
bool strcmp(char *s1, char *s2); |
bool strncmp(char *s1, char *s2, int n); |
extern double epsilon; |
int isdelim(char c); |
int isdigit(char c); |
int isalpha2(char c); |
int iswhite(char c); |
/programs/other/table/stdafx.cpp |
---|
0,0 → 1,8 |
// stdafx.cpp : source file that includes just the standard includes |
// FixedPoint.pch will be the pre-compiled header |
// stdafx.obj will contain the pre-compiled type information |
#include "stdafx.h" |
// TODO: reference any additional headers you need in STDAFX.H |
// and not in this file |
/programs/other/table/stdafx.h |
---|
0,0 → 1,11 |
// stdafx.h : include file for standard system include files, |
// or project specific include files that are used frequently, but |
// are changed infrequently |
// |
#pragma once |
#define WIN32_LEAN_AND_MEAN // Exclude rarely-used stuff from Windows headers |
// TODO: reference additional headers your program requires here |
/programs/other/table/use_library.h |
---|
0,0 → 1,58 |
typedef Dword dword; |
dword am__ = 0x0; |
dword bm__ = 0x0; |
char aEdit_box_draw[9] = "edit_box"; |
char aEdit_box_key[13] = "edit_box_key"; |
char aEdit_box_mouse[15] = "edit_box_mouse"; |
char aVersion_ed[11] = "version_ed"; |
char aCheck_box_draw [15] = "check_box_draw"; |
char aCheck_box_mouse [16] = "check_box_mouse"; |
char aVersion_ch [11] = "version_ch"; |
char aOption_box_draw [16] = "option_box_draw"; |
char aOption_box_mouse[17] = "option_box_mouse"; |
char aVersion_op [11] = "version_op" ; |
//BOX_LIB |
typedef dword __stdcall dword_func(dword); |
//typedef dword __stdcall dword3_func(dword,dword,dword); |
dword_func *edit_box_draw =(dword_func*) &aEdit_box_draw; |
dword_func *edit_box_key =(dword_func*) &aEdit_box_key; |
dword_func *edit_box_mouse =(dword_func*) &aEdit_box_mouse; |
//char lib_path[] = "/sys/lib/box_lib.obj"; |
char lib_path[] = "/sys/lib/box_lib.obj"; |
dword lib_path_addr = (dword)lib_path; |
dword dummy = 0; |
struct edit_box{ |
dword width, left, top, color, shift_color, focus_border_color, blur_border_color, |
text_color, max, text, flags, size, pos, offset, cl_curs_x, cl_curs_y, shift, shift_old; |
}; |
void load_edit_box() |
{ |
kol_struct_import *k = kol_cofflib_load(lib_path); |
if (k == NULL) |
{ |
sprintf(debuf, "cannot load library %S", lib_path); |
rtlDebugOutString(debuf); |
return; |
} |
edit_box_draw = (dword_func*)kol_cofflib_procload(k, "edit_box"); |
edit_box_key = (dword_func*)kol_cofflib_procload(k,"edit_box_key"); |
edit_box_mouse = (dword_func*)kol_cofflib_procload(k,"edit_box_mouse"); |
kos_SetMaskForEvents(0x27); |
if (edit_box_draw == NULL || edit_box_key == NULL || edit_box_mouse == NULL) |
rtlDebugOutString("some of functions cannot be loaded!"); |
} |