property NSFont : a reference to current application’s NSFont
property NSPredicate : a reference to current application’s NSPredicate
property NSFontManager : a reference to current application’s NSFontManager

script spdf
　　property fList : {}
　　property outList : {}
end script

set (outList of spdf) to {}
set (fList of spdf) to getEveryFontPSName() of me

repeat with i in (fList of spdf)
　　set j to contents of i
　　set aEnc to chkFontsCompatibleEncoding(j) of me
　　–if aEnc is not equal to "default" then set the end of (outList of spdf) to {fontEncoding:aEnc}
　　set the end of (outList of spdf) to {fontEncoding:aEnc}
end repeat

set aCountedList to countEachRecord((outList of spdf)) of me
–> {{aCount:1, aData:{fontEncoding:"NSSymbolStringEncoding"}}, {aCount:860, aData:{fontEncoding:"default"}}, {aCount:1005, aData:{fontEncoding:"NSMacOSRomanStringEncoding"}}}

–Rec in Listの登場頻度を集計して出力
on countEachRecord(aRecList)
　　set theCountedSet to current application’s NSCountedSet’s |set|()
　　repeat with i in aRecList
　　　　set j to contents of i
　　　　(theCountedSet’s addObject:j)
　　end repeat
　　
　　set theEnumerator to theCountedSet’s objectEnumerator()
　　set anArray to current application’s NSMutableArray’s alloc()’s init()
　　
　　repeat
　　　　set aDict to current application’s NSMutableDictionary’s alloc()’s init()
　　　　
　　　　set aValue to theEnumerator’s nextObject()
　　　　if aValue is missing value then exit repeat
　　　　
　　　　set aCount to theCountedSet’s countForObject:aValue
　　　　
　　　　aDict’s setObject:aCount forKey:"aCount"
　　　　aDict’s setObject:aValue forKey:"aData"
　　　　anArray’s addObject:aDict
　　end repeat
　　
　　return anArray as anything
end countEachRecord

on getEveryFontPSName()
　　script spd
　　　　property aList : {}
　　end script
　　
　　set aFontList to NSFontManager’s sharedFontManager()’s availableFonts()
　　set thePred to NSPredicate’s predicateWithFormat:"NOT SELF BEGINSWITH ’.’"
　　set aFontList to (aFontList’s filteredArrayUsingPredicate:thePred) as list
　　
　　set aList of spd to {}
　　repeat with i in aFontList
　　　　set aName to contents of i
　　　　set the end of aList of spd to aName
　　end repeat
　　
　　return aList of spd
end getEveryFontPSName

use AppleScript
use framework "Foundation"
use framework "AppKit"
use scripting additions

–set aName to "HelveticaNeue"
–set aName to "Verdana"
–set aName to "TimesNewRomanPSMT"
set aName to "SFProText-Regular"

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

property NSFont : a reference to current application’s NSFont
property NSPredicate : a reference to current application’s NSPredicate
property NSFontManager : a reference to current application’s NSFontManager

set okList to {}
set fList to getEveryFontPSName() of me
set fontM to NSFontManager’s sharedFontManager()

repeat with i in fList
　　set j to contents of i
　　set fRes to (fontM’s fontNamed:(j) hasTraits:(current application’s NSBoldFontMask))
　　if fRes as boolean = true then set the end of okList to j
end repeat

return okList

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSPredicate : a reference to current application’s NSPredicate
property NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property NSPropertyListFormat : a reference to current application’s NSPropertyListFormat
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding
property NSPropertyListImmutable : a reference to current application’s NSPropertyListImmutable
property NSPropertyListSerialization : a reference to current application’s NSPropertyListSerialization

script spd
　　property sRes : missing value
　　property aSource : missing value
　　property bRes : missing value
　　property fontNames : {}
　　property fontPath : {}
　　property outList : {}
end script

–システムにインストールされているフォントの情報を全抽出
set sRes of spd to do shell script "system_profiler -xml SPFontsDataType"
set aSource of spd to first item of (readPlistFromStr(sRes of spd) of me)

–全フォント情報から、名称とパス情報を抽出
set bRes of spd to (((aSource of spd)’s valueForKeyPath:"_items"))
set fontNames of spd to ((bRes of spd)’s valueForKeyPath:"_name") as list
set fontPath of spd to ((bRes of spd)’s valueForKeyPath:"path") as list

–ループでOSデフォルトインストールされているフォントを抽出
set outList of spd to {}
set aCount to 1

repeat with i in (fontPath of spd)
　　set j to contents of i
　　
　　if j begins with "/System/Library/Fonts/" then
　　　　–指定のフォントに複数のTypefaceが含まれていることを考慮し、情報を取り出す
　　　　set outItem to (((item aCount of (bRes of spd)))’s valueForKeyPath:"typefaces._name") as list
　　　　set the end of (outList of spd) to outItem
　　end if
　　
　　set aCount to aCount + 1
end repeat

–すべてのTypefaceを入れた入れ子の2D Listから1D Listに変換
set allFonts to FlattenList((outList of spd)) of me

–ドット（.）ではじまるフォントを除外
set outList to {}
repeat with i in allFonts
　　set j to contents of i
　　if j does not start with "." then
　　　　set the end of outList to j
　　end if
end repeat

return outList

–stringのplistを読み込んでRecordに
on readPlistFromStr(theString)
　　set aSource to NSString’s stringWithString:theString
　　set pListData to aSource’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set aPlist to NSPropertyListSerialization’s propertyListFromData:pListData mutabilityOption:(NSPropertyListImmutable) format:(NSPropertyListFormat) errorDescription:(missing value)
　　return aPlist
end readPlistFromStr

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel(aRecList as list, aPredicate as string)
　　set aArray to NSArray’s arrayWithArray:aRecList
　　
　　set aPredicate to NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　
　　set bList to filteredArray as list
　　return bList
end filterRecListByLabel

–リストに入れたレコードを、指定の属性ラベルの値で抽出
on filterRecListByLabel1(aRecList, aPredicate as string)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicate
　　set filteredArray to aArray’s filteredArrayUsingPredicate:aPredicate
　　return filteredArray
end filterRecListByLabel1