Subversion Repositories Kolibri OS

Rev

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

Rev 3448 Rev 3467
Line 365... Line 365...
365 
	strcpy(#tmpch, itoa(d_int));
 365 
	strcpy(#tmpch, itoa(d_int));
366 
	debug(#tmpch);
 366 
	debug(#tmpch);
367 
}
 367 
}
Line 368... Line -...
368 
 
 - 
 
369 
 
 - 
 
370 
/* strtok( LPSTR dest, src, divs);
 - 
 
371 
src - óêàçàòåëü íà èñõîäíóþ ñòðîêó èëè ðåçóëüòàò ïðåäûäóùåãî âûçîâà
 - 
 
372 
dest - óêàçàòåëü íà áóôåð, êóäà áóäåò ñêîïèðîâàíî ñëîâî
 - 
 
373 
divs - óêàçàòåëü íà ñòðîêó, ñîäåðæàùóþ ñèìâîëû-ðàçäåëèòåëè
 - 
 
374 
Âîçâðàùàåò: 0, åñëè ñëîâ áîëüøå íåò
 - 
 
375 
         íå 0, åñëè ñëîâî ñêîïèðîâàíî â dest (ïåðåäàéòå ýòî çíà÷åíèå
 - 
 
376 
               â êà÷åñòâå src äëÿ ïîñëåäóþùåãî ïîèñêà) */
 - 
 
377 
 
 - 
 
378 
inline fastcall dword strtok( EDX, ESI, EBX)
 - 
 
379 
{
 - 
 
380 
  asm {
 - 
 
381 
    XOR ECX, ECX
 - 
 
382 
    MOV EDI, EBX
 - 
 
383 
    XOR EAX, EAX
 - 
 
384 
    DEC ECX
 - 
 
385 
    REPNE SCASB
 - 
 
386 
    XOR ECX, 0FFFFFFFFH
 - 
 
387 
    DEC ECX
 - 
 
388 
    PUSH ECX
 - 
 
389 
L1: LODSB
 - 
 
390 
    OR AL, AL
 - 
 
391 
    JZ L4
 - 
 
392 
    MOV EDI, EBX
 - 
 
393 
    MOV ECX, SSDWORD[ ESP]
 - 
 
394 
    REPNE SCASB
 - 
 
395 
    JZ L1
 - 
 
396 
    DEC ESI
 - 
 
397 
L2: LODSB
 - 
 
398 
    MOV EDI, EBX
 - 
 
399 
    MOV ECX, SSDWORD[ ESP]
 - 
 
400 
    REPNE SCASB
 - 
 
401 
    JZ L3
 - 
 
402 
    MOV DSBYTE[ EDX], AL
 - 
 
403 
    INC EDX
 - 
 
404 
    JMP SHORT L2
 - 
 
405 
L3: MOV EAX, ESI
 - 
 
406 
L4: POP ECX
 - 
 
Line 407... Line 368...
407 
  } DSBYTE[ EDX] = 0;
 368 
 
408 
}
 369 
 
409 
 
 370 
 
410 
#define strncpy strcpyn
 371 
#define strncpy strcpyn
411 
#define strnmov strmovn
 - 
 
412 
#define stricmp strcmpi
 - 
 
413 
#define strcmpn strncmp
 - 
 
414 
#define strncmpi strcmpni
 - 
 
415 
#define stricmpn strcmpni
 - 
 
- 
 
 372 
#define strnmov strmovn