how to print the absolute/relative path from file

Hello I have two setting file....setting file 1 which consists of-

source netlist1                                                    (relative path)

top cell  test21

setting file 2 which consists of-

source /xyz/path1/path2/netlist1                       (absolute path)

top cell  test21

procedure(readSetupFile(form)
  let((prt split removeQuotes commandArg)
    setup_file_path = form->setupFile->value
    removeQuotes=pcreCompile("['\"]")
    unless(blankstrp(form->setupFile->value)
      prt=infile(form->setupFile->value)
      when(prt
        while(gets(line prt)
          split=parseString(line)
          when(stringp(cadr(split))
            commandArgs=pcreReplace(removeQuotes cadr(split) "" 0)
            case(car(split)
              (("source")
                test = parseString(setup_file_path "/")
                test_dir = append1((reverse (cdr (reverse test))) commandArgs)
                netpath = buildString(test_dir "/" )
                form->netlistPath->value = strcat("/" netpath)
              )
              ("topcell"
                form->cell->value=commandArgs
              )
            )
          )
        )
        close(prt)
      )
    )
  )
)

; dummy form to test
hiCreateLayoutForm(
  'forumForm
  "Forum example"
  hiCreateFormLayout(
    'vbox
    ?items list(
      hiCreateStringField(
        ?name 'setupFile
        ?prompt "Setup File"
        ?callback "readSetupFile(hiGetCurrentForm())"
      )
      hiCreateStringField(
        ?name 'netlistPath
        ?prompt "Netlist Path"
      )
      hiCreateStringField(
        ?name 'cell
        ?prompt "Cell"
      )
    )
  )
)

hiDisplayForm(forumForm)

when i give setting file1 path /xyz/abc/cadence/setting1 then output is comign correct as /xyz/abc/cadence/netlist1.

but when am giving setting file 2  path  /xyz/abc/cadence/setting1 then output is comign incorrect as /xyz/abc/cadence//xyz/path1/path2/netlist1 

how to correct so gets the corrrect result.