?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     MODULE UrlEncoder
  2. ; HL - pointer to line in gopher page
  3. ; C - flag set when it's file
  4. isFile:
  5. .findServerLoop
  6.     ld a, (hl) : and a : jr z, .notFile : inc hl
  7.     cp 13 : jr z, .notFile
  8.     cp 9  : jr z, .skipPath
  9.     jr .findServerLoop
  10. .skipPath
  11.     ld a, (hl) : and a : jr z, .notFile : inc hl
  12.     cp 13 : jr z, .notFile
  13.     cp 9  : jr z, .compareServer
  14.     jr .skipPath
  15. .compareServer
  16.     ld a, (hl) : cp "f" : jr nz, .notFile : inc hl
  17.     ld a, (hl) : cp "i" : jr nz, .notFile : inc hl
  18.     ld a, (hl) : cp "l" : jr nz, .notFile : inc hl
  19.     ld a, (hl) : cp "e" : jr nz, .notFile : inc hl
  20.     ld a, (hl) : cp 9   : jr nz, .notFile : inc hl
  21.     ld a, 1
  22.     ret
  23. .notFile
  24.     xor a
  25.     ret
  26.  
  27. ; Is enough fields to encode
  28. ; HL - pointer to line in gopher page
  29. ; C - flag set when there is enough fields
  30. isValidGopherRow:
  31.     ld a, (hl) : and a : jr z, isFile.notFile : inc hl
  32.     cp 13 : jr z, isFile.notFile
  33.     cp 9  : jr z, .skipPath
  34.     jr isValidGopherRow
  35. .skipPath
  36.     ld a, (hl) : and a : jr z, isFile.notFile : inc hl
  37.     cp 13 : jr z, isFile.notFile
  38.     cp 9  : jr z, .skipHost
  39.     jr .skipPath
  40. .skipHost
  41.     ld a, (hl) : and a : jr z, isFile.notFile : inc hl
  42.     cp 13 : jr z, isFile.notFile
  43.     cp 9 :  jr z, .isValid
  44.     jr .skipHost
  45. .isValid:
  46.     scf
  47.     ret
  48.  
  49. extractPath:
  50.     ld hl, historyBlock.locator, de, nameBuffer, bc, #ff : ldir
  51.     ret
  52.  
  53. extractHostName:
  54.     ld hl, historyBlock.host, de, hostName, bc, 64 : ldir
  55.     ret
  56.    
  57.     ENDMODULE
  58.    
  59. nameBuffer ds #ff, 0  
  60.      
  61.          db 0
  62. hostName ds 64