Subversion Repositories Kolibri OS

Rev

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

Rev 9904 Rev 9906
Line 26... Line 26...
26 
    WCHAR_SIZE = 2;
 26 
    WCHAR_SIZE = 2;
27 
    SPACE* = 20X;
 27 
    SPACE* = 20X;
28 
    TAB* = 9X;
 28 
    TAB* = 9X;
29 
    NUL* = 0FDD0X;
 29 
    NUL* = 0FDD0X;
30 
    TAB1* = 0FDD1X;
 30 
    TAB1* = 0FDD1X;
- 
 
 31 
    MAX_TAB_WIDTH* = 16;
Line 31... Line 32...
31 
 
 32 
 
Line 32... Line 33...
32 
TYPE
 33 
TYPE
33 
 
 34 
 
Line 538... Line 539...
538 
    IF _tab = 0 THEN
 539 
    IF _tab = 0 THEN
539 
        _tab := 4
 540 
        _tab := 4
540 
    END;
 541 
    END;
541 
    tabs := _tab > 0;
 542 
    tabs := _tab > 0;
542 
    tab := ABS(_tab);
 543 
    tab := ABS(_tab);
543 
    IF tab > 32 THEN
 544 
    IF tab > MAX_TAB_WIDTH THEN
544 
    	tab := 32
 545 
    	tab := MAX_TAB_WIDTH
545 
    END
 546 
    END
546 
END setTabs;
 547 
END setTabs;
Line 547... Line 548...
547 
 
 548