emailler/test/parser.s

.include "../inc/common.inc"
.include "../inc/commonprint.inc"
.include "../inc/net.inc"

.export start

.import exit_to_basic

.import print_a
.import get_key
.import ascii_to_native
.import parser_init
.import parser_skip_next
.importzp copy_src
.importzp copy_dest
.import url_ip
.import url_port
.import url_selector
.import url_resource_type
.import url_parse

temp_buff = copy_dest


; keep LD65 happy
.segment "INIT"
.segment "ONCE"


.segment "STARTUP"

  ; switch to lower case charset
  lda #14
  jsr print_a

start:
  jsr print_cr
  init_ip_via_dhcp
  jsr print_ip_config

  ldax #url_1
  jsr test_url_parse
  jsr wait_key

  ldax #url_2
  jsr test_url_parse
  ldax #url_3
  jsr test_url_parse
  ldax #url_4
  jsr test_url_parse
  jsr wait_key

  ldax #url_5
  jsr test_url_parse
  ldax #url_6
  jsr test_url_parse
  ldax #url_7
  jsr test_url_parse
  ldax #url_8
  jsr test_url_parse
  jsr wait_key

  ldax #url_9
  jsr test_url_parse
  ldax #url_a
  jsr test_url_parse
  ldax #url_b
  jsr test_url_parse
  ldax #url_c
  jsr test_url_parse

  jsr wait_key

  ldax #atom_file
  jsr parser_init

; ldax #entry
; jsr parser_skip_next
; bcs @done

@next_title:
  ldax #title
  jsr parser_skip_next
  bcs @done

  jsr print_tag_contents
  jsr print_cr

  jmp @next_title

@done:
  jmp exit_to_basic


test_url_parse:
  stax temp_url_ptr
  ldax #parsing
  jsr print
  ldax temp_url_ptr
  jsr print
  jsr print_cr
  ldax temp_url_ptr
  jsr url_parse
  bcc :+
  jmp print_errorcode
: stax selector_ptr
  jmp print_parsed_url

print_tag_contents:
  stax temp_buff
  lda #0
  sta string_offset
@next_byte:
  ldy string_offset
  lda (temp_buff),y
  beq @done
  cmp #'<'
  beq @done
  jsr ascii_to_native
  jsr print_a
  inc string_offset
  beq @done
  jmp @next_byte
@done:
  rts

print_parsed_url:
  ldax #ip
  jsr print
  ldax #url_ip
  jsr print_dotted_quad
  ldax #port
  jsr print
  ldax url_port
  jsr print_integer
  ldax #type
  jsr print
  lda url_resource_type
  jsr print_a
  jsr print_cr
  ldax #selector
  jsr print
  ldax selector_ptr
  jsr print
  jmp print_cr

wait_key:
  ldax #press_a_key
  jsr print
  jmp get_key


.bss

string_offset: .res 1
selector_ptr:  .res 2
temp_url_ptr:  .res 2


.data

entry:
  .byte "<entry>",0
title:
  .byte "<title>",0

url_1:
  .byte "http://www.jamtronix.com/",13,"not part of URL!",0

url_2:
  .byte "http://www.jamtronix.com/goober",0

url_3:
  .byte "http://www.jamtronix.com:8080/foo",0

url_4:
  .byte "gopher://gopher.floodgap.com/",0

url_5:
  .byte "gopher://10.5.1.164/0goober",0

url_6:
  .byte "gopher://gopher.floodgap.com:7070/7/goober",0

url_7:
  .byte "www.jamtronix.com",0

url_8:
  .byte "jamtronix.com:70",0

url_9:
  .byte "gopher.floodgap.com",0

url_a:
  .byte "10.5.1.123:70",0

url_b:
  .byte "gopher.floodgap.com:80",0

url_c:
  .byte "gopher.floodgap.com:70",0

parsing:
  .asciiz "PARSING "
ip:
  .asciiz "IP: "
port:
  .asciiz " PORT: "
type:
  .asciiz " TYPE:"
selector:
  .asciiz "SELECTOR: "
press_a_key:
  .byte "PRESS ANY KEY TO CONTINUE",13,0

atom_file:
; .incbin "atom_test.xml"

.byte 0



; -- LICENSE FOR parser.s --
; The contents of this file are subject to the Mozilla Public License
; Version 1.1 (the "License"); you may not use this file except in
; compliance with the License. You may obtain a copy of the License at
; http://www.mozilla.org/MPL/
;
; Software distributed under the License is distributed on an "AS IS"
; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
; License for the specific language governing rights and limitations
; under the License.
;
; The Original Code is ip65.
;
; The Initial Developer of the Original Code is Jonno Downes,
; jonno@jamtronix.com.
; Portions created by the Initial Developer are Copyright (C) 2009
; Jonno Downes. All Rights Reserved.
; -- LICENSE END --