Subversion Repositories Kolibri OS

Rev

Rev 7592 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7592 Rev 7757
Line 12... Line 12...
12
    "int ", "dword ", "long ", "double ", "float ", "char ", "unsigned ", "signed ",
12
    "int ", "dword ", "long ", "double ", "float ", "char ", "unsigned ", "signed ",
13
    "void ", "bool ", "enum ", "byte ", "word ", "struct ", "NULL", "loop", "stdcall ",
13
    "void ", "bool ", "enum ", "byte ", "word ", "struct ", "NULL", "loop", "stdcall ",
14
    ":void ", ":int ", ":bool ", ":dword ", NULL
14
    ":void ", ":int ", ":bool ", ":dword ", NULL
15
};
15
};
Line 16... Line 16...
16
 
16
 
17
dword ShowCodeSource()
17
dword ShowCodeSource(dword _bufpointer, _bufsize)
18
{
18
{
19
	dword new_buf, new_buf_start, i;
19
	dword new_buf, new_buf_start, i;
Line 20... Line 20...
20
	int mode = CODE;
20
	int mode = CODE;
21
 
21
 
22
	char spstr[64];
22
	char spstr[64];
23
	dword keylen;
23
	dword keylen;
Line 24... Line 24...
24
	dword keyn;
24
	dword keyn;
25
	dword keycolor;
25
	dword keycolor;
26
 
26
 
27
	new_buf = malloc(bufsize*10);
27
	new_buf = malloc(_bufsize*10);
28
	new_buf_start = new_buf;
28
	new_buf_start = new_buf;
29
	sprintf(new_buf,"
",#URL);
29
	sprintf(new_buf,"%s
",#current_path);
30
	new_buf += strlen(new_buf);
30
	new_buf += strlen(new_buf);
31
	for (i=bufpointer; i
31
	for (i=_bufpointer; i<_bufpointer+_bufsize; i++)
32
	{
32
	{
33
		if ('<' == ESBYTE[i]) {
33
		if ('<' == ESBYTE[i]) {
Line 114... Line 114...
114
		ESBYTE[new_buf] = ESBYTE[i];
114
		ESBYTE[new_buf] = ESBYTE[i];
115
		new_buf++;
115
		new_buf++;
116
		_CONTINUE:		
116
		_CONTINUE:		
117
	}
117
	}
118
	ESBYTE[new_buf] = 0;
118
	ESBYTE[new_buf] = 0;
119
	bufsize = new_buf - new_buf_start;
119
	LoadInternalPage(new_buf_start, new_buf - new_buf_start);
120
	free(bufpointer);
-
 
121
	bufpointer = new_buf_start;
120
	free(new_buf_start);
122
}
121
}
123
122