Source Insight 获取当前文件名



macro GetFileName(pathName)
{
nlength = strlen(pathName)
i = nlength - 1
name = ""
while (i + 1)
{
   ch = pathName[i]
   if ("\\" == "@ch@")
    break
   i = i - 1
}
i = i + 1
while (i < nlength)
{
   name = cat(name, pathName[i])
   i = i + 1
}

return name
}