applescript for texshop to open skim displayline

texshop.applescript

--AppleScript direct

-- set val to do shell script "sed 's|[a-zA-Z]*.pdf|build/&|g' <<< " & quoted form of #PDFPATH#
-- tell application "Skim" to open val

set val to do shell script "sed 's|[a-zA-Z]*.pdf|build/&|g' <<< " & quoted form of #PDFPATH#
-- val is pdfpath
set lf to linefeed
tell application "TeXShop"
	set offs to offset of the selection of document #DOCUMENTNAME#
	set strt to text of document #DOCUMENTNAME#
end tell
set strt to characters 1 thru (offs) of strt as string
set oldTIDs to AppleScript's text item delimiters
set AppleScript's text item delimiters to lf
set num to (count (text items of strt))
set AppleScript's text item delimiters to oldTIDs
-- tell application "Skim" to open val
do shell script "/Applications/Skim.app/Contents/SharedSupport/displayline " & num & " " & quoted form of val & " " & quoted form of #TEXPATH#