set a to "10.0.1"
set b to retMajorVersionNumber(a) of me
–> 10

set a to "9.10"
set b to retMajorVersionNumber(a) of me
–> 9

set aStr to "ぴよまるソフトウェアPiyomaru Software"
set theNSString to current application’s NSString’s stringWithString:aStr
set theNSData to theNSString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
set bStr to base64StringFromFileString(aStr) of me
return bStr
–>　　"44G044KI44G+44KL44K944OV44OI44Km44Kn44KiUGl5b21hcnUgU29mdHdhcmU="

set aFilePath to POSIX path of (choose file)
base64StringFromFileAtPath(aFilePath) of me

–Base 64 Decode
on detaFromBase64String(aStr)
　　set dataFrom64 to current application’s NSData’s alloc()’s initWithBase64EncodedString:aStr options:(current application’s NSDataBase64DecodingIgnoreUnknownCharacters)
　　set aStr to current application’s NSString’s alloc()’s initWithData:dataFrom64 encoding:(current application’s NSUTF8StringEncoding)
　　return aStr as text –stringではなくtext
end detaFromBase64String

–Base64 Encode
on base64StringFromFileAtPath(aFilePath)
　　set aDataFromFile to current application’s NSData’s dataWithContentsOfFile:aFilePath
　　set aBase64EncStr to aDataFromFile’s base64EncodedStringWithOptions:(current application’s NSDataBase64Encoding64CharacterLineLength)
　　return aBase64EncStr as text
end base64StringFromFileAtPath

on retProgressChar(aList, cList)
　　set barCharLen to 10
　　
　　set allNum to item 1 of aList
　　set doneNum to item 2 of aList
　　if doneNum > allNum then return ""
　　
　　set oneStep to 100 / allNum
　　set curStep to doneNum * oneStep
　　
　　set stringBar to (curStep / barCharLen)
　　set stringBar2 to round stringBar rounding as taught in school
　　
　　–未処理アイテム数
　　set notYet to barCharLen – stringBar2
　　
　　set notYetChar to contents of item 1 of cList
　　set doneChar to contents of item 2 of cList
　　
　　set notYetText to makeCharRep(notYet, notYetChar) of me
　　set doneText to makeCharRep(stringBar2, doneChar) of me
　　
　　set aText to doneText & notYetText
　　return aText
　　
end retProgressChar

–Reference:
–http://akisute.com/2010/05/utf-8-normalize.html
–http://nomenclator.la.coocan.jp/unicode/normalization.htm

set a to "がぎぐげご"
set aStr to current application’s NSString’s stringWithString:a
log hexDumpString(aStr)
–> {"E3", "81", "8C", "E3", "81", "8E", "E3", "81", "90", "E3", "81", "92", "E3", "81", "94"}

–NFD
set aNFD to aStr’s decomposedStringWithCanonicalMapping()
–>　　(NSString) "がぎぐげご"
log hexDumpString(aNFD)
–> {"E3", "81", "8B", "E3", "82", "99", "E3", "81", "8D", "E3", "82", "99", "E3", "81", "8F", "E3", "82", "99", "E3", "81", "91", "E3", "82", "99", "E3", "81", "93", "E3", "82", "99"}

–NFKD
set aNFKD to aStr’s decomposedStringWithCompatibilityMapping()
–>　　(NSString) "がぎぐげご"
log hexDumpString(aNFKD)
–> {"E3", "81", "8B", "E3", "82", "99", "E3", "81", "8D", "E3", "82", "99", "E3", "81", "8F", "E3", "82", "99", "E3", "81", "91", "E3", "82", "99", "E3", "81", "93", "E3", "82", "99"}

–NFC
set aNFC to aStr’s precomposedStringWithCanonicalMapping()
–>　　(NSString) "がぎぐげご"
log hexDumpString(aNFC)
–> {"E3", "81", "8C", "E3", "81", "8E", "E3", "81", "90", "E3", "81", "92", "E3", "81", "94"}

–NFKC
set aNFKC to aStr’s precomposedStringWithCompatibilityMapping()
–>　　(NSString) "がぎぐげご"
log hexDumpString(aNFKC)
–> {"E3", "81", "8C", "E3", "81", "8E", "E3", "81", "90", "E3", "81", "92", "E3", "81", "94"}

–NSStringをhexdumpする
on hexDumpString(theNSString)
　　set theNSData to theNSString’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set theString to (theNSData’s |description|()’s uppercaseString())
　　
　　–Remove "<" ">" characters in head and tail
　　set tLength to (theString’s |length|()) – 2
　　set aRange to current application’s NSMakeRange(1, tLength)
　　set theString2 to theString’s substringWithRange:aRange
　　
　　–Replace Space Characters
　　set aString to current application’s NSString’s stringWithString:theString2
　　set bString to aString’s stringByReplacingOccurrencesOfString:" " withString:""
　　
　　set aResList to splitString(bString, 2)
　　–> {​​​​​"E3", ​​​​​"81", ​​​​​"82", ​​​​​"E3", ​​​​​"81", ​​​​​"84", ​​​​​"E3", ​​​​​"81", ​​​​​"86", ​​​​​"E3", ​​​​​"81", ​​​​​"88", ​​​​​"E3", ​​​​​"81", ​​​​​"8A"​​​}
　　
　　return aResList
　　
end hexDumpString

–Split NSString in specified aNum characters
on splitString(aText, aNum)
　　
　　set aStr to current application’s NSString’s stringWithString:aText
　　if aStr’s |length|() ≤ aNum then return aText
　　
　　set anArray to current application’s NSMutableArray’s new()
　　set mStr to current application’s NSMutableString’s stringWithString:aStr
　　
　　set aRange to current application’s NSMakeRange(0, aNum)
　　
　　repeat while (mStr’s |length|()) > 0
　　　　if (mStr’s |length|()) < aNum then
　　　　　　anArray’s addObject:(current application’s NSString’s stringWithString:mStr)
　　　　　　mStr’s deleteCharactersInRange:(current application’s NSMakeRange(0, mStr’s |length|()))
　　　　else
　　　　　　anArray’s addObject:(mStr’s substringWithRange:aRange)
　　　　　　mStr’s deleteCharactersInRange:aRange
　　　　end if
　　end repeat
　　
　　return (current application’s NSArray’s arrayWithArray:anArray) as list
　　
end splitString

set aStr to "こんにちは、ぴよまるです

iPhoneから送信"

set aDict to (parseStrByParamlabelAndTail(aStr, "MATMSG:", ":", ";") of me)

set eMailAddrs to (aDict’s valueForKey:"TO") as string
–>　　"hiyoko@piyocast.com"
set aSubject to (aDict’s valueForKey:"SUB") as string
–>　　"たいとる"
set aBody to (aDict’s valueForKey:"BODY") as string
–>　　"ほんぶん"

set aStr to "ライター/編集者仲間である友人と雑談していたところ、自然言語処理がいろいろ使えそうなシーンが見えてきました。彼によると、Twitter上で過去記事の紹介ツイートを行いたいが、何も関係ないところに唐突に記事紹介のツイートを投げても不自然だし、興味を持たれにくいので、時事ネタと関連する記事を紹介する仕組みを作れないだろうか、という話になりました。

apitoreでも日本語Word.netのデータを利用して類義語や上位概念の言葉を計算できるようになっていますが、日本語の基本的な語句に特化しており、実際に試してみたところ「カール」「ガンダム」といった商品名などから類義語や上位概念を求める用途に向いていないことがわかりました。これらの計算を行うためには、Wikipediaのデータからカテゴリを取得できれば、やりやすくなるものと思われます。"

set aCond to current application’s EACondensor’s alloc()’s initWithText:aStr
aCond’s setAverageThreshold:(1.0 as real)
set shortStr to (aCond’s condensedString()) as string
–>　　"ライター/編集者仲間である友人と雑談していたところ、自然言語処理がいろいろ使えそうなシーンが見えてきました。彼によると、Twitter上で過去記事の紹介ツイートを行いたいが、何も関係ないところに唐突に記事紹介のツイートを投げても不自然だし、興味を持たれにくいので、時事ネタと関連する記事を紹介する仕組みを作れないだろうか、という話になりました。そこで、比較的鮮度および注目度が高いと思われる「ニュース記事」から固有名詞だけを抽出し、その固有名詞にどのぐらい世間的な注目が集まっているかを判定できると、そのキーワードに関連する過去記事をツイートしやすくなるかもしれないと考えました。apitoreのREST APIには、ニュースフィードを提供するもの、形態素解析を行うもの、Twitter検索を行うものなどがあり、これらを組み合わせるとできそうな感じがしてきました。→　Playing with rest api実際に試してみたところ、ニュースフィードからニュース記事本文を抽出するのは（RSS Feedに本文の冒頭部分が含まれていないケースもあるので、結局記事のサイトを見に行って本文を抽出する必要がある）けっこう大変で、タイトル（題名）のみ処理することに。次に、タイトルの文章を形態素解析して、「固有名詞」だけを抽出してみました。これは別に難しくもなんともありません。さらに、入り組んだrecordから目的のデータを取り出すのは、AppleScriptでもCocoaの機能を使えば造作もありません。NSDictionaryからvalueForKeyPath:でオブジェクトパスを記述して抽出すれば、データ取り出しのために長々とループ処理で記述する必要はありません。次の段階は、その時点における「注目度」の計算です。仮にTwitter全体を１つの「世間」とみなし、Twitter上で拡散されていたりお気に入りに入れられる回数の高い単語は、比較的「注目度」が高いものだろうという仮説を立てました。→　キーワードの言語ごとのTwitter発言内容集計そこで、ニュースのタイトルから抽出した固有名詞をTwitterで検索し、それぞれの固有名詞がTweet上でどの程度リツイートされたか、お気に入りに入れられたかを計算してみました。これについては、コストの問題からREST APIではなくローカルのmacOS上で動作するAppleScript用Twitterクライアント「TwitterScripter」を呼び出すことにしました。apitore上の各種REST APIは無料で試用できますが、呼び出し回数が増えれば料金がかかるため、その部分を節約することが目的です。TwitterScripterを使用することによるデメリットは、それ自体が並列処理に対応していないこと。Mac上で（AppleScriptによる）並列処理を行ってTwitter検索を行う場合には、直接Twitterの（割と整理されていない）APIを直接呼び出すか、apitore上のREST APIを呼び出すしかなさそうです。→ AS. "

set piyoText to "githubで公開されているオープンソースのフレームワーク「HTTPServerKit」（By David Thorpe氏）を呼び出して、簡易http（Web）サーバー機能を起動するAppleScriptです。

実際に試す場合には、ビルドされたバイナリをダウンロードするほかないと思われます。AppleScriptの実行前にフレームワークのバイナリを~/Library/Frameworksに入れておいてください。"

set bText to summarizeInSpecifiedChars(piyoText, 400)

–結果表示
display dialog (bDate – aDate) as string
–> 通常で5秒、offset ofをフックして自前のサブルーチンで実行すると２秒

–offset命令の実行を横取りする
on offset of searchStr in str
　　set aRes to getOffset(str, searchStr) of me
　　return aRes
end offset

on getOffset(str, searchStr)
　　set d to divideBy(str, searchStr)
　　if (count d) is less than 2 then return 0
　　return (length of item 1 of d) + 1
end getOffset

on divideBy(str, separator)
　　set delSave to AppleScript’s text item delimiters
　　set the AppleScript’s text item delimiters to separator
　　set strItems to every text item of str
　　set the AppleScript’s text item delimiters to delSave
　　return strItems
end divideBy

set aString to current application’s NSString’s stringWithString:"長野谷　隆昌"
set aRange to aString’s rangeOfString:"隆"
return aRange
–>{​​​​​location:4, ​​​​​length:1​​​}

property NSString : a reference to current application’s NSString
property NSMutableArray : a reference to current application’s NSMutableArray
property NSDate : a reference to current application’s NSDate
property NSLiteralSearch : a reference to current application’s NSLiteralSearch

set aFile to POSIX path of (choose file)

set a1Dat to NSDate’s timeIntervalSinceReferenceDate()

set aStr to NSString’s stringWithContentsOfFile:aFile encoding:(current application’s NSUTF8StringEncoding) |error|:(missing value)
set aRes to searchWordRanges(aStr, "子供") of me as list
–>　　{​​​​​{​​​​​​​location:1159, ​​​​​​​length:2​​​​​}, ​​​​​{​​​​​​​location:1242, ​​​​​​​length:2​​​​​}, ​​​​​{​​​​​​​location:1261, ​​​​​​​length:2​​​​​}, ​​​​​…..

set b1Dat to NSDate’s timeIntervalSinceReferenceDate()
set c1Dat to b1Dat – a1Dat

on searchWordRanges(aTargText as string, aSearchStr as string)
　　set aStr to NSString’s stringWithString:aTargText
　　set bStr to NSString’s stringWithString:aSearchStr
　　
　　set hitArray to NSMutableArray’s alloc()’s init()
　　set cNum to (aStr’s |length|()) as integer
　　
　　set aRange to current application’s NSMakeRange(0, cNum)
　　
　　repeat
　　　　set detectedRange to aStr’s rangeOfString:bStr options:(NSLiteralSearch) range:aRange
　　　　if detectedRange’s location is equal to current application’s NSNotFound then exit repeat
　　　　
　　　　hitArray’s addObject:detectedRange
　　　　
　　　　set aNum to (detectedRange’s location) as integer
　　　　set bNum to (detectedRange’s |length|) as integer
　　　　
　　　　set aRange to current application’s NSMakeRange(aNum + bNum, cNum – (aNum + bNum))
　　end repeat
　　
　　return hitArray
end searchWordRanges

property NSString : a reference to current application’s NSString
property NSMutableArray : a reference to current application’s NSMutableArray
property NSLiteralSearch : a reference to current application’s NSLiteralSearch

set aStr to "ATGC ACGT ATGC AGTC
ATGC ACGT ATGC AGTC
ATGC ACGT ATGC AGTC
ATGC ACGT ATGC AGTC
"
set aRes to searchWordRanges(aStr, "ATGC") of me as list
–>　　{​​​​​{​​​​​​​location:0, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:10, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:20, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:30, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:40, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:50, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:60, ​​​​​​​length:4​​​​​}, ​​​​​{​​​​​​​location:70, ​​​​​​​length:4​​​​​}​​​}

set a to "あいうえお＋＋かきくけこ"
set b to cleanUpText(a, "＋", "●")
–> "あいうえお●●かきくけこ"

property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSStringTransformFullwidthToHalfwidth : a reference to current application’s NSStringTransformFullwidthToHalfwidth
property NSMutableArray : a reference to current application’s NSMutableArray

on run
　　set lineMax to 9
　　set aText to "テキスト縦書きを行うAppleScriptの「禁則処理」および任意改行への対応バージョンです。"
　　set sRes to makeTategakiStr(lineMax, aText) of me
end run

–縦行数を指定しつつ指定テキストを縦書き化
on makeTategakiStr(lineMax as integer, aText as string)
　　set curMax to 0
　　set sList to paragraphs of aText –途中で強制改行が入っているケースに対処
　　
　　set aList to {}
　　
　　repeat with i in sList
　　　　set outList to strToTategakiList(lineMax, i) of me
　　　　set the end of aList to outList
　　end repeat
　　
　　set aList to kinsokuList2(aList) of me
　　
　　set curLen to length of aList
　　set curMax to getMaxItemCountFrom2DArray(aList) of me
　　
　　set tmpList to {}
　　set twoDList to make2DBlankArray(curLen, curMax) of me
　　
　　set curY to 1
　　repeat with x from 1 to curMax
　　　　
　　　　set curX to 1
　　　　repeat with y from curLen to 1 by -1
　　　　　　set aCon to getItemByXY(x, y, aList, "　") of me
　　　　　　set twoDList to setItemByXY(curX, curY, twoDList, aCon as string) of me
　　　　　　set curX to curX + 1
　　　　end repeat
　　　　
　　　　set curY to curY + 1
　　end repeat
　　
　　—
　　set twoDList2 to checkBlankVerticalLine(twoDList, "　")
　　
　　
　　set aRes to list2dToStringByUsingDelimiters(twoDList2, "　", return) of me
　　set zRes to hanToZen(aRes) of me
　　
　　return zRes
end makeTategakiStr

–与えた文字列を縦書き2Dリストに変換
on strToTategakiList(lineMax as integer, aText as string)
　　set zText to hanToZen(aText) of me
　　
　　set outList to {}
　　set oneLine to {}
　　set aCount to 1
　　set curMax to 0
　　
　　repeat with i from 1 to (length of aText)
　　　　set aChar to character i of aText
　　　　
　　　　set aChar to retTateChar(aChar) of me
　　　　
　　　　set the end of oneLine to aChar
　　　　
　　　　set aCount to aCount + 1
　　　　if aCount > lineMax then
　　　　　　set aCount to 1
　　　　　　set the end of outList to oneLine
　　　　　　set oneLine to {}
　　　　end if
　　end repeat
　　
　　if oneLine is not equal to {} then
　　　　set the end of outList to oneLine
　　end if
　　
　　return outList
end strToTategakiList

–半角→全角変換
on hanToZen(aStr as string)
　　set aString to NSString’s stringWithString:aStr
　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:true) as string
end hanToZen

–2D Listに配列の添字的なアクセスを行なってデータを取得
on getItemByXY(aX as integer, aY as integer, aList as list, aBlankItem) –1 based index
　　try
　　　　set aContents to contents of (item aX of item aY of aList)
　　on error
　　　　set aContents to aBlankItem
　　end try
　　return aContents
end getItemByXY

–2D Listに配列の添字的なアクセスを行なってデータを設定
on setItemByXY(aX as integer, aY as integer, tmpList as list, aContents) –1 based index
　　set (item aX of item aY of tmpList) to aContents
　　return tmpList
end setItemByXY

–空白の2D Array を出力する
on make2DBlankArray(curLen as integer, curMax as integer)
　　set outArray to {}
　　repeat curMax times
　　　　set tmpList to {}
　　　　repeat curLen times
　　　　　　set the end of tmpList to ""
　　　　end repeat
　　　　set the end of outArray to tmpList
　　end repeat
　　return outArray
end make2DBlankArray

–2D Listをアイテム間デリミタ、および行間デリミタを指定しつつテキスト化
on list2dToStringByUsingDelimiters(aList as list, itemDelimiter as string, lineDelimiter as string)
　　set outList to {}
　　repeat with i in aList
　　　　set aStr to listToStringUsingTextItemDelimiter(i, itemDelimiter) of me
　　　　set the end of outList to aStr
　　end repeat
　　
　　return listToStringUsingTextItemDelimiter(outList, lineDelimiter) of me
end list2dToStringByUsingDelimiters

–1D Listをアイテム間デリミタ、および行間デリミタを指定しつつテキスト化
on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter as string)
　　set anArray to NSArray’s arrayWithArray:sourceList
　　return (anArray’s componentsJoinedByString:textItemDelimiter) as string
end listToStringUsingTextItemDelimiter

–2D Listの各要素のアイテム数のうち最多のものを返す
on getMaxItemCountFrom2DArray(aList as list)
　　set anArray to NSArray’s arrayWithArray:aList
　　set bArray to (anArray’s valueForKeyPath:"@unionOfObjects.@count")
　　return (bArray’s valueForKeyPath:"@max.self") as integer
end getMaxItemCountFrom2DArray

–特殊文字の横書き用から縦書き用への置き換え
on retTateChar(aChar as string)
　　if aChar = "＜" then return "︿"
　　if aChar = "＞" then return "﹀"
　　—
　　if aChar = "《" then return "︽"
　　if aChar = "》" then return "︾"
　　—
　　if aChar = "「" then return "﹁"
　　if aChar = "」" then return "﹂"
　　—
　　if aChar = "『" then return "﹃"
　　if aChar = "』" then return "﹄"
　　—
　　if aChar = "【" then return "︻"
　　if aChar = "】" then return "︼"
　　—
　　if aChar = "［" then return "﹇"
　　if aChar = "］" then return "﹈"
　　—
　　if aChar = "｛" then return "︷"
　　if aChar = "｝" then return "︸"
　　—
　　if aChar = "(" then return "︵"
　　if aChar = ")" then return "︶"
　　—
　　if aChar = "、" then return "︑"
　　if aChar = "。" then return "︒"
　　if aChar = "ー" then return "︱"
　　if aChar = "～" then return "⌇"
　　if aChar = "＝" then return "‖"
　　—
　　if aChar = "１" then return "一"
　　if aChar = "２" then return "二"
　　if aChar = "３" then return "三"
　　if aChar = "４" then return "四"
　　if aChar = "５" then return "五"
　　if aChar = "６" then return "六"
　　if aChar = "７" then return "七"
　　if aChar = "８" then return "八"
　　if aChar = "９" then return "九"
　　if aChar = "０" then return "〇"
　　
　　return aChar
end retTateChar

–とりあえずな禁則処理（任意改行を考慮し、２D Listでデータを受け取る）
on kinsokuList2(toDList as list)
　　
　　set kinsokuCharList to {"︒", "︑", "﹁", "﹂", "﹃", "﹄", "︻", "︼", "﹇", "﹈", "︷", "︸", "︵", "︶", "︱", "⌇", "ァ", "ィ", "ゥ", "ェ", "ォ", "ョ", "ぁ", "ぃ", "ぅ", "ぇ", "ぉ", "ょ"}
　　set outList to {}
　　
　　repeat with ii in toDList
　　　　set aList to contents of ii
　　　　set aLen to length of aList
　　　　set startNum to 2
　　　　
　　　　repeat
　　　　　　set chgF to false
　　　　　　repeat with i from startNum to aLen
　　　　　　　　try
　　　　　　　　　　set aChar to contents of first item of item i of aList
　　　　　　　　on error
　　　　　　　　　　–ちょっと強引、、、
　　　　　　　　　　exit repeat
　　　　　　　　end try
　　　　　　　　
　　　　　　　　considering case and diacriticals –超重要!!
　　　　　　　　　　if aChar is in kinsokuCharList then
　　　　　　　　　　　　–行頭に禁則文字が入っていたら、前の行に追い出す
　　　　　　　　　　　　set the end of item (i – 1) of aList to aChar
　　　　　　　　　　　　set tmpList to contents of item i of aList
　　　　　　　　　　　　set item i of aList to removeItemInArray(tmpList, 1) of me
　　　　　　　　　　　　
　　　　　　　　　　　　–リフロー処理
　　　　　　　　　　　　–repeat with refI from (i + ((i < aLen) as integer)) to aLen
　　　　　　　　　　　　repeat with refI from (i + 1) to aLen
　　　　　　　　　　　　　　–現在行の先頭の文字を取得
　　　　　　　　　　　　　　set aaChar to first item of item refI of aList
　　　　　　　　　　　　　　–前行の末尾に追加
　　　　　　　　　　　　　　set the end of item (refI – 1) of aList to aaChar
　　　　　　　　　　　　　　–現在行の先頭の文字を削除
　　　　　　　　　　　　　　set tmpList to contents of item refI of aList
　　　　　　　　　　　　　　set item refI of aList to removeItemInArray(tmpList, 1) of me
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　if chgF = false then
　　　　　　　　　　　　　　set chgF to true
　　　　　　　　　　　　　　copy (i + ((aLen > i) as integer)) to startNum
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　end considering –超重要!!
　　　　　　　　
　　　　　　end repeat
　　　　　　if chgF = false then exit repeat
　　　　end repeat
　　　　
　　　　set outList to outList & aList
　　end repeat
　　
　　return outList
end kinsokuList2