Subversion Repositories Kolibri OS

;workarea:    <- RTF_work

;  listptr dd savelist    0

;  szKeyword rb 31        4

;  szParameter rb 21      35

include 'rtftype.inc'

include 'rtfactn.inc'

read_next_block:

  inc  [cur_block]

read_block:

  mov  esi,I_END

  pusha

  mov  ecx,[cur_block]

  mov  ebx,fileinfo

  mov  eax,ecx

  shl  eax,16

  mov  [ebx+4],eax

;  mov  [ebx+12],esi

  mcall 70

if DEBUG_BLOCK eq 1

;  dps  'B='

;  dpd  ecx

;  dps  <13,10>

end if

  cmp  ecx,[max_block]

  je   .last

  mov  ebx,I_END+RTFSIZE

  jmp  .add

.last:

  mov  ebx,[tail]

;  dpd  ebx

.add:

;  dpd  ebx

  mov  [block_end],ebx

  popa

;  dpd  esi

;  dps  <13,10>

  ret

;

; %%Function: ecRtfParse

;

; Step 1:

; Isolate RTF keywords and send them to ecParseRtfKeyword;

; Push and pop state at the start and end of RTF groups;

; Send text to ecParseChar for further processing.

;

macro CopySave _src,_dest

{

    pusha

    mov  ecx,SIZE_save

    mov  esi,_src

    mov  edi,_dest

    rep  movsb

    popa

}

RtfParse:

 if BENCH eq 1

    mcall 26,9

    mov  [bench],eax

 end if

    mov  [RetroPtr],esi

    CopySave Chp,RetroSave

    push dword[Free+4]

    pop  dword[RetroXY]

    xor  eax,eax

    mov  [cur_block],eax

    mov  [RetroBlock],eax

    push [cGroup]

    pop  [RetroGroup]

    and  [mode],not RTF_BLIND

    mov  [listptr],save_stack

    mov  [fileinfo.size],128*512

;    test ebp,RTF_HELP

    test [mode],RTF_HELP

    jne  .noread

    call read_block

  .noread:

    mov  [RetroPtr],esi

  .nib2:

    mov  [nibble],2

    and  [b],al

  .getc:

    xor  eax,eax

    lods_block

    cmp  [cGroup],0

    jge  .ok1

    Return ecStackUnderflow

  .ok1:

    cmp  [ris],risBin

    jne  .nobin

    RetError ecParseChar

  .nobin:

    cmp  al,'{'

    jne  .nobr1

    RetError ecPushRtfState

  .nobr1:

    cmp  al,'}'

    jne  .nobr2

    RetError ecPopRtfState

  .nobr2:

    cmp  al,'\'

    jne  .noslash

    RetError ecParseRtfKeyword

  .noslash:

    cmp  al,0xd

    je   .getc

    cmp  al,0xa

    je   .getc

  .nouc:

    cmp  [ris],risNorm

    jne  .nonorm

    call ecParseChar

    cmp  eax,ecOutOfWindow

    je   .__ex

    test eax,eax

    je   .getc

    jmp  .__ex

  .nonorm:

    cmp  [ris],risHex

    je   .noassert

    Return ecAssertion

  .noassert:

    shl  [b],4

    isdigit al, .nodig

    sub  al,'0'

    add  [b],al

    jmp  .nibble

  .nodig:

    islower al, .nolow

    cmp  al,'a'

    jb   .inval

    cmp  al,'f'

    ja   .inval

    sub  al,'a'-10

    jmp  .nib0

  .inval:

  if INVALHEX eq 0

    jmp  .getc

  else

;    sub  esi,I_END+1

;    dpd  esi

;    movzx eax,al

;    dpd  eax

;    movzx eax,[b]

;    dpd  eax

    Return ecInvalidHex

  end if

  .nolow:

    cmp  al,'A'

    jb   .inval

    cmp  al,'F'

    ja   .inval

    sub  al,'A'-10

  .nib0:

    add  [b],al

  .nibble:

    dec  [nibble]

    cmp  [nibble],0

    jnz  .getc

    movzx eax,[b]

    mov  [ris],risNorm

    call ecParseChar

    test eax,eax

    jnz  .__ex

;    mov  [ris],risNorm

    jmp  .nib2

  .eof:

    xor  eax,eax

    cmp  eax,[cGroup]

    je   .__ex

    jg   .unbr

    Return ecStackUnderflow

  .unbr:

    mov  eax,ecUnmatchedBrace

  .__ex:

    ret

nibble db 2

b      db 0

RTF_maxlist dd ?

;

; %%Function: ecParseRtfKeyword

;

; Step 2:

; get a control word (and its associated value) and

; call ecTranslateKeyword to dispatch the control.

;

ecParseRtfKeyword:

; ch-al,bl-fParam, bh-fNeg

    mov  [ris],risNorm

    xor  eax,eax

    xor  ebx,ebx

    push edx

    mov  [szKeyword],al

    mov  [szParameter],al

    lods_block

    isalpha al,.ctrl

    jmp  .alph

  .ctrl:

    push esi

    mov  esi,szKeyword

    inc  byte[esi]

    mov  [esi+1],al

    mov  eax,ebx

    xor  ebx,ebx

    call ecTranslateKeyword

    pop  esi

    jmp  .__ex

  .alph:

    push edi

    mov  edi,szKeyword+1

  .loop1:

    stosb

    inc  [szKeyword]

    lods_block

    isalpha al,.outloop1

    jmp  .loop1

  .outloop1:

    pop  edi

    cmp  al,'-'

    jne  .noneg

    not  bh

    lods_block

  .noneg:

    isdigit al,.nodig

    not  bl

    push edi

    mov  edi,szParameter+1

  .loop2:

    stosb

    inc  [szParameter]

    lods_block

    isdigit al,.outloop2

    jmp  .loop2

  .outloop2:

    pop  edi

    push eax esi

    mov  esi,szParameter

    atoi

    pop  esi

    mov  edx,eax

    pop  eax

    mov  [lParam],edx

    test bh,bh

    jz   .nodig

    neg  edx

  .nodig:

    cmp  al,' '

    je   .space

    cmp  esi,I_END

    jne  .ok_block

    dec  [cur_block]

    call read_block

    mov  esi,[block_end]

  .ok_block:

    dec  esi

  .space:

    mov eax,ebx

    mov ebx,edx

    push esi

    mov  esi,szKeyword

    call ecTranslateKeyword

    pop  esi

  .__ex:

    pop  edx

    ret

;

; %%Function: ecParseChar

;

; Route the character to the appropriate destination stream.

;

ecParseChar:

;in: ch-al, esi->rtf

   cmp  [ris],risBin

   jne  .nobin

   dec  [cbBin]