YkLib 0.1.0

data/lib/YkLib/Yk/missing_method.rb

@@ -0,0 +1,50 @@
+
+
+require 'Yk/__hook__'
+
+module MissingMethod
+	def initialize_missing_method o, m
+		@obj__ = o
+		@method__ = m
+	end
+	def call *args, **opts, &bl
+		if @method__ =~ /[^a-zA-Z0-9_?]/ && !bl && args.size <= 1 && opts.size == 0
+			if args.size == 1
+				eval("@obj__ #{@method__} args[0]")
+			elsif args.size == 0
+				eval("#{@method__} @obj__")
+			end
+		else
+			eval("@obj__.#{@method__}(*args, **opts, &bl)")
+		end
+	end
+	def [] *args
+		call *args
+	end
+	def arity
+		raise NotImplementedError.new("MissingMethod#arity is not implemented")
+	end
+	def unbind
+		raise NotImplementedError.new("MissingMethod#unbound is not implemented")
+	end
+end
+
+
+class Object
+	alias_method :method_____, :method
+	def method (n)
+		begin
+			method_____(n)
+		rescue NameError
+			prx = method_____(:__id__)
+			prx.extend MissingMethod
+			prx.initialize_missing_method self, n
+			prx.__hook__ :inspect do |org|
+				org.call.sub(/#[^#]+$/, "##{n}")
+			end
+			prx
+		end
+	end
+end
+
+

data/lib/YkLib/Yk/mojiConv.rb

@@ -0,0 +1,257 @@
+
+
+module MojiKonv
+	ZhKanjiList =
+    '丑专业丛东丝丢两严丧个丰临为丽举么义乌乐乔乘习乡书买亏云亚产亩亲' +
+    '亿仅仆从仑仓仪们价仿众优伙伞伟传伤伦伪佛你佣侠侣侥侦侧侨俩俭债值' +
+    '倾假偿储儿兑兰关兴养兽冈册军农冯冰冲决况冻净凄凉凌减凑凛几凤凭凯' +
+    '击凿划刘则刚创删别刽剂剑剥剧剩劝办务动劲劳势勋匀华协单卖卜卢卤卧' +
+    '卫卷厂厅历厉压厌厕厢厦厨县叁发变叠只叶叹吁吃吊后吓吕吗吨听启吴呕' +
+    '员呛呜咏咙咸响哑哗哟唤啰啸喷嚣团园囱围图圆圈圣场坏块坚坛坝坞坟坠' +
+    '垄垒垦垫墙增壤壳壶壹处备复够头夸夹夺奋奖妆妇妈姊娄娇娘娱婴婶孙宁' +
+    '实宠审宪宫宽宾对寻导尔尘尝尸层屉屡屿岁岂岗岛岭峦崭巢巩币帅师帐帘' +
+    '帜带帮并广庄庆庐库应庙庞废开异弃张弥弯弹强归录彻德忆忧怀态怜总恳' +
+    '恶恼悬悯惊惠惧惩惫惭惯愈愤愿懒戏战户扎扑托执扩扫扬扰抚抠抡抢护报' +
+    '抬拂拔拜拟拢拣拥拦拧拨择挂挚挠挡挣挤挥捞损捡换捣据捻掷掸掺插揭揽' +
+    '搀搁搂搅搜摄摆摇摊撑撵攒收效敌敛斋斩无时旷昙显晋晒晓晕晚暂术朴机' +
+    '杀杂权杨杰极构枣枪枫柜柠查栅标栈栋栏树栖样档桥桨桩梦检椭榨樱橱欢' +
+    '步歼毁每毕毙毡气氛氢汇汉污汤汹沉沟沥沦沧沪泞泪泻泼泽洁洼浆浇浊' +
+    '测济浑浓涂涉涌涛涝涡涣涤润涧涨涩淀渊渐渔渗渴游溃溅溪滚满滤滥滨滩' +
+    '澜濒灭灵灶灾灿炮炼烁烂烛烟烦烧烫热焕爱爷牵牺犹狈狞狮狰狱猎猪玛环' +
+    '现琐琼瓮电畅畴疏疗疟疮疯痒痪瘪瘫癣皱盏盐监盖盘睁瞒矫矾矿码砖砚砾' +
+    '础硅硕确碍碎碱祷祸离秃秆种积秸秽稳稻穗穷窍窑窗窜窝窥竖竞笋笔笼筑' +
+    '筛筹签简箩篓篮篱类粤粪粮粹紧纠红纤约级纪纫纬纯纱纲纳纵纷纸纹纺纽' +
+    '线练组绅细织终绊绍绎经绑绒结绕绘给络绝绞统绢绣继绩绪续绰绳维绵绷' +
+    '绸综绽绿缀缅缆缎缓缔缕编缘缚缝缠缨缩缴网罗罚罢羡翘耸耻聂聋职联聪' +
+    '肃肠肤肾肿胀胁胜胶脉脏脐脑脓脸腊腻腾舆舍舰舱艰艳艺节芜芦苇苍苏苹' +
+    '范茧荆荐荚荡荣荤荧药莱莲获莹萝萤营萧萨葱蒋蓝蔼蕴藏虏虑虽虾蚀蚁蚂' +
+    '蜕蜗蜡蝇蝉蝎衅衔补衬袄袜袭裤裹见观规觅视览觉誊计订认讥讨让训议讯' +
+    '记讲讳讶许讹论讼讽设访诀证评诅识诈诉诊词译试诗诚话诞诡询该详诫诬' +
+    '语误诱诲说诵请诸诺读诽课谁调谅谆谈谊谋谍谎谐谒谓谚谜谢谣谤谦谨谬' +
+    '谭谱谴贝贞负贡财责贤败账货质贩贪贫贬购贮贯贰贱贴贵贷贸费贺贼贾' +
+    '贿赁赂赃资赊赋赌赎赏赐赔赖赘赚赛赞赠赡赢赵赶趋跃踪躯车轧轨轩转轮' +
+    '软轰轴轻载轿较辅辆辈辉辐辑输辕辖辙辩辫边辽达迁过迈运还这进远违连' +
+    '迟迹适选逊递逻遗遥邓邮邻郑酝酱酿醉采释鉴针钉钓钙钝钞钟钠钢钥钦钧' +
+    '钩钮钱钳钻钾铁铃铅铆铜铝铡铣铭铲银铸铺链销锁锄锅锈锋锌锐错锚锡锣' +
+    '锤锥锦锨锭键锯锰锹锻镀镇镊镐镜镣镰镶长门闪闭问闯闰闲间闷闸闹闺闻' +
+    '闽阀阁阅阎阐阔队阳阴阵阶际陆陈陕陨险陷隐隶难雏雕雾霉霸韧韩韵页顶' +
+    '顷项顺须顽顾顿颁颂预颅领颇颈颊频颓颖颗题颜额颠颤风飘飞饥饭饮饰饱' +
+    '饲饵饶饺饼饿馁馅馆馋馏馒马驮驯驰驱驳驴驶驹驻驼驾骂骄骆骇验骏骑骗' +
+    '骚骡骤髓鱼鲁鲜鲤鲸鳖鳞鸟鸡鸣鸥鸦鸭鸯鸳鸵鸽鸿鹃鹅鹊鹏鹤鹰黑默齐齿' +
+    '龄龙龟漥';
+    
+	JaKanjiList =
+    '醜専業叢東絲丟両厳喪個豊臨為麗挙麽義烏楽喬乗習郷書買虧雲亜産畝親' +
+    '億僅僕従侖倉儀們価倣衆優夥傘偉伝傷倫偽仏妳傭俠侶僥偵側僑倆倹債値' +
+    '傾仮償儲児兌蘭関興養獣岡冊軍農馮氷沖決況凍浄淒涼淩減湊凜幾鳳憑凱' +
+    '撃鑿劃劉則剛創刪別劊剤剣剝劇剰勧辦務働勁労勢勲勻華協単売蔔盧鹵臥' +
+    '衛巻廠庁暦厲圧厭廁廂廈廚県三発変畳隻葉嘆籲喫弔後嚇呂嗎噸聴啓呉嘔' +
+    '員嗆嗚詠嚨鹹響啞嘩喲喚啰嘯噴囂団園囪囲図円圏聖場壊塊堅壇壩塢墳墜' +
+    '壟塁墾墊牆増壌殻壺壱処備復夠頭誇夾奪奮奨粧婦媽姉婁嬌嬢娯嬰嬸孫寧' +
+    '実寵審憲宮寛賓対尋導爾塵嘗屍層屜屢嶼歳豈崗島嶺巒嶄巣鞏幣帥師帳簾' +
+    '幟帯幫併広荘慶廬庫応廟龐廃開異棄張彌彎弾強帰録徹徳憶憂懐態憐総懇' +
+    '悪悩懸憫驚恵懼懲憊慚慣癒憤願懶戯戦戸紮撲託執拡掃揚擾撫摳掄搶護報' +
+    '擡払抜拝擬攏揀擁攔擰撥択掛摯撓擋掙擠揮撈損撿換搗拠撚擲撣摻挿掲攬' +
+    '攙擱摟攪捜摂擺揺攤撐攆攢収効敵斂斎斬無時曠曇顕晉曬暁暈晩暫術樸機' +
+    '殺雑権楊傑極構棗槍楓櫃檸査柵標桟棟欄樹棲様檔橋槳樁夢検橢搾桜櫥歓' +
+    '歩殲毀毎畢斃氈気雰氫彙漢汚湯洶沈溝瀝淪滄滬濘涙潟潑沢潔窪漿澆濁' +
+    '測済渾濃塗渉湧濤澇渦渙滌潤澗漲渋澱淵漸漁滲渇遊潰濺渓滾満濾濫濱灘' +
+    '瀾瀕滅霊竈災燦砲錬爍爛燭煙煩焼燙熱煥愛爺牽犠猶狽獰獅猙獄猟豬瑪環' +
+    '現瑣瓊甕電暢疇疎療瘧瘡瘋癢瘓癟癱癬皺盞塩監蓋盤睜瞞矯礬鉱碼磚硯礫' +
+    '礎矽碩確礙砕堿禱禍離禿稈種積稭穢穏稲穂窮竅窯窓竄窩窺豎競筍筆籠築' +
+    '篩籌簽簡籮簍籃籬類粵糞糧粋緊糾紅繊約級紀紉緯純紗綱納縦紛紙紋紡紐' +
+    '線練組紳細織終絆紹繹経綁絨結繞絵給絡絶絞統絹繡継績緒続綽縄維綿繃' +
+    '綢綜綻緑綴緬纜緞緩締縷編縁縛縫纏纓縮繳網羅罰罷羨翹聳恥聶聾職聯聰' +
+    '粛腸膚腎腫脹脅勝膠脈臓臍脳膿臉臘膩騰輿舎艦艙艱豔芸節蕪蘆葦蒼蘇蘋' +
+    '範繭荊薦莢蕩栄葷熒薬萊蓮獲瑩蘿蛍営蕭薩蔥蔣藍藹蘊蔵虜慮雖蝦蝕蟻螞' +
+    '蛻蝸蠟蠅蟬蠍釁銜補襯襖襪襲褲裏見観規覓視覧覚謄計訂認譏討譲訓議訊' +
+    '記講諱訝許訛論訟諷設訪訣証評詛識詐訴診詞訳試詩誠話誕詭詢該詳誡誣' +
+    '語誤誘誨説誦請諸諾読誹課誰調諒諄談誼謀諜謊諧謁謂諺謎謝謡謗謙謹謬' +
+    '譚譜譴貝貞負貢財責賢敗賬貨質販貪貧貶購貯貫弐賤貼貴貸貿費賀賊賈' +
+    '賄賃賂贓資賒賦賭贖賞賜賠頼贅賺賽賛贈贍贏趙趕趨躍蹤軀車軋軌軒転輪' +
+    '軟轟軸軽載轎較輔輛輩輝輻輯輸轅轄轍弁弁辺遼達遷過邁運還這進遠違連' +
+    '遅跡適選遜逓邏遺遙鄧郵隣鄭醞醬醸酔採釈鑑針釘釣鈣鈍鈔鐘鈉鋼鑰欽鈞' +
+    '鈎鈕銭鉗鑽鉀鉄鈴鉛鉚銅鋁鍘銑銘鏟銀鋳舗鏈銷鎖鋤鍋鏽鋒鋅鋭錯錨錫鑼' +
+    '錘錐錦鍁錠鍵鋸錳鍬鍛鍍鎮鑷鎬鏡鐐鐮鑲長門閃閉問闖閏閑間悶閘鬧閨聞' +
+    '閩閥閣閲閻闡闊隊陽陰陣階際陸陳陝隕険陥隠隷難雛彫霧黴覇韌韓韻頁頂' +
+    '頃項順須頑顧頓頒頌預顱領頗頸頰頻頹穎顆題顔額顛顫風飄飛飢飯飲飾飽' +
+    '飼餌饒餃餅餓餒餡館饞餾饅馬駄馴馳駆駁驢駛駒駐駝駕罵驕駱駭験駿騎騙' +
+    '騒騾驟髄魚魯鮮鯉鯨鼈鱗鳥鶏鳴鷗鴉鴨鴦鴛鴕鴿鴻鵑鵝鵲鵬鶴鷹黒黙斉歯' +
+    '齢龍亀窪';
+
+	HankakuList0 =
+	' !"#$%&'"'"'()*+,-./0123456789:;<=>?' +
+	'@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`' +
+	'abcdefghijklmnopqrstuvwxyz{|}~ｱｲｳ' +
+	'ｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔ' +
+	'ﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｯｬｭｮｰ｡､｢｣ﾟﾞ･';
+
+	HankakuEisuList1 =
+	'  ! " # $ % & '+"' "+'( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ' +
+	'@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` ' +
+	'a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~'
+
+	ZenkakuEisuList1 =
+	'　！”＃＄％＆’（）＊＋，－．／０１２３４５６７８９：；＜＝＞？' +
+	'＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿｀' +
+	'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝～'
+
+	HankakuList1 =
+	'  ! " # $ % & '+"' "+'( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? ' +
+	'@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` ' +
+	'a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ ｱ ｲ ｳ ' +
+	'ｴ ｵ ｶ ｷ ｸ ｹ ｺ ｻ ｼ ｽ ｾ ｿ ﾀ ﾁ ﾂ ﾃ ﾄ ﾅ ﾆ ﾇ ﾈ ﾉ ﾊ ﾋ ﾌ ﾍ ﾎ ﾏ ﾐ ﾑ ﾒ ﾓ ﾔ ' +
+	'ﾕ ﾖ ﾗ ﾘ ﾙ ﾚ ﾛ ﾜ ｦ ﾝ ｧ ｨ ｩ ｪ ｫ ｯ ｬ ｭ ｮ ｰ ｡ ､ ｢ ｣ ﾟ ﾞ ･ ';
+
+	ZenkakuList1 =
+	'　！”＃＄％＆’（）＊＋，－．／０１２３４５６７８９：；＜＝＞？' +
+	'＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿｀' +
+	'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝～アイウ' +
+	'エオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤ' +
+	'ユヨラリルレロワヲンァィゥェォッャュョー。、「」゜゛・';
+	
+	HankakuList2 =
+	'ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟｳﾞ';
+	ZenkakuList2 =
+	'ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポヴ';
+	
+	HiraganaList1 =
+	'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむ' +
+	'めもやゆよらりるれろわをんぁぃぅぇぉっゃゅょ';
+	KatakanaList1 =
+	'アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミム' +
+	'メモヤユヨラリルレロワヲンァィゥェォッャュョ';
+	HankanaList1 =
+	'ｱ ｲ ｳ ｴ ｵ ｶ ｷ ｸ ｹ ｺ ｻ ｼ ｽ ｾ ｿ ﾀ ﾁ ﾂ ﾃ ﾄ ﾅ ﾆ ﾇ ﾈ ﾉ ﾊ ﾋ ﾌ ﾍ ﾎ ﾏ ﾐ ﾑ ' +
+	'ﾒ ﾓ ﾔ ﾕ ﾖ ﾗ ﾘ ﾙ ﾚ ﾛ ﾜ ｦ ﾝ ｧ ｨ ｩ ｪ ｫ ｯ ｬ ｭ ｮ ';
+
+	HiraganaList2 =
+	'がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ';
+	KatakanaList2 =
+	'ガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ';
+	HankanaList2 =
+	'ｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ';
+	
+end
+
+
+class String
+	def hankaku
+		ret = ""
+		each_char do |c|
+			i = MojiKonv::ZenkakuList2.index(c)
+			if i
+				cv = MojiKonv::HankakuList2[i * 2, 2]
+			else
+				i = MojiKonv::ZenkakuList1.index(c)
+				if i
+					cv = MojiKonv::HankakuList1[i * 2, 1]
+				else
+					cv = c
+				end
+			end
+			ret += cv
+		end
+		ret
+	end
+	def hankaku!
+		replace hankaku
+		self
+	end
+	def hiragana2hankaku
+		ret = ""
+		each_char do |c|
+			i = MojiKonv::HiraganaList2.index(c)
+			if i
+				cv = MojiKonv::HankanaList2[i * 2, 2]
+			else
+				i = MojiKonv::HiraganaList1.index(c)
+				if i
+					cv = MojiKonv::HankanaList1[i * 2, 1]
+				else
+					cv = c
+				end
+			end
+			ret += cv
+		end
+		ret
+	end
+	def eisuHankaku
+		ret = ""
+		each_char do |c|
+			i = MojiKonv::ZenkakuEisuList1.index(c)
+			if i
+				cv = MojiKonv::HankakuList1[i * 2, 1]
+			else
+				cv = c
+			end
+			ret += cv
+		end
+		ret
+	end
+	def hankakuEisu
+		eisuHankaku
+	end
+	def hankakuEisu!
+		replace eisuHankaku
+	end
+	def eisuHankaku!
+		replace eisuHankaku
+	end
+	def hiragana2hankaku!
+		replace hiragana2hankaku
+		self
+	end
+	def shinjitai
+		ret = ""
+		each_char do |c|
+			i = MojiKonv::ZhKanjiList.index(c)
+			if i
+				cv = MojiKonv::JaKanjiList[i]
+			else
+				cv = c
+			end
+			ret += cv
+		end
+		ret
+	end
+	def shinjitai!
+		replace shinjitai
+		self
+	end
+	def encodeOr encoding
+		ret = "".encode(encoding)
+		each_char do |c|
+			cv = nil
+			begin
+				cv = c.encode(encoding)
+			rescue
+				if block_given?
+					cv = yield(c).encode(encoding) rescue '?'.encode(encoding)
+				else
+					cv = '?'.encode(encoding)
+				end
+			end
+			ret += cv
+		end
+		ret
+	end
+	def encodeOr! encoding, &bl
+		ret = encodeOr encoding, &bl
+		replace ret
+		self
+	end
+	def width
+		w = 0
+		each_char do |c|
+			if MojiKonv::HankakuList0.include?(c) || c.ord < 0x80
+				w += 1
+			else
+				w += 2
+			end
+		end
+		w
+	end
+end
+
+

data/lib/YkLib/Yk/nostdlog.rb

@@ -0,0 +1,4 @@
+
+ENV['STDLOG_NO_CONSOLE'] = "1"
+require 'Yk/stdlog'
+

data/lib/YkLib/Yk/on_marshal.rb

@@ -0,0 +1,20 @@
+
+module OnMarshal
+    def marshal_dump
+       	if respond_to? :on_marshal_dump
+       		on_marshal_dump
+       	end
+       	Marshal::dump(self.instance_variables.collect{|var| [var, instance_variable_get(var)]})
+    end
+    def marshal_load(obj)
+        Marshal::load(obj).each{ |value|
+       		instance_variable_set(value[0], value[1])
+        }
+       	if respond_to? :on_marshal_load
+       		on_marshal_load
+       	end
+    end
+end
+
+
+

data/lib/YkLib/Yk/overrider.rb

@@ -0,0 +1,47 @@
+
+class Module
+	def override_prev (*mnames)
+		mnames.each do |mname|
+			alias_method "__org_" + mname.to_s, mname
+			if !defined? @prev_overriden
+				@prev_overriden = Hash.new
+			end
+			if @prev_overriden[mname] != nil
+				raise Exception.new("cannot define two overriding methods for #{mname}\n")
+			end
+			@prev_overriden[mname] = true
+		end
+	end
+	def override_prev_commit
+		@prev_overriden.each_key do |mname|
+			alias_method "__new_" + mname.to_s, mname
+			module_eval %Q{
+				def #{"org_" + mname.to_s} (*args, &proc)
+					k = "__#{name}__original__"
+					if Thread.current[k] == nil
+						Thread.current[k] = 0
+					end
+					Thread.current[k] += 1
+					begin
+						#{"__org_" + mname.to_s}(*args, &proc)
+					ensure
+						Thread.current[k] -= 1
+					end
+				end
+				def #{mname} (*args, &proc)
+					k = "__#{name}__original__"
+					if Thread.current[k] == nil
+						Thread.current[k] = 0
+					end
+					if Thread.current[k] > 0
+						#{"__org_" + mname.to_s}(*args, &proc)
+					else
+						#{"__new_" + mname.to_s}(*args, &proc)
+					end
+				end
+			}
+		end
+	end
+end
+
+

data/lib/YkLib/Yk/path.rb

@@ -0,0 +1,293 @@
+
+
+class AdhocLiterals
+	class Path
+		def initialize arg
+			@literal = arg
+		end
+	end
+	def self.__path__ arg
+		Path.new arg
+	end
+end
+
+
+class GrammerExt
+	class Indenter
+		PATH_HEAD = "AdhocLiterals::__path__("
+		BOTH_HEAD = "AdhocLiterals::__reg_path__("
+		CSelectInPathRegExpr = '\[(\!|\^|)(\\\-|\.|\~|\w|[A-Z]\-[A-Z]|[a-z]\-[a-z]|[0-9]\-[0-9])*\]'
+		CSelectInPathRegExprPrev = Regexp.new(CSelectInPathRegExpr + '$')
+		CSelectInPathRegExprCur = Regexp.new('^' + CSelectInPathRegExpr)
+		def mayConcatenatePath t
+			if t.kind != :on_nl && t.kind != :on_sp && !@expr.anot[t.ipos]
+				ett = tt = t.prev_meaningful
+				if fap, mode = @expr.anot[tt.ipos]
+					modeList.unshift [mode, tt.ipos]
+					loop do
+						begin
+							ftt = tt
+							tt = tt.prev_meaningful
+						end until fap != (tfap, mode = @expr.anot[tt.ipos])[0]
+						if mode
+							modeList.unshift [mode, tt.ipos]
+						else
+							break
+						end
+						fap = tfap
+					end
+					if modeList.size > 1
+						modeList.each_cons 2 do |f, n|
+							case [f[0][0], n[0][0]]
+							when [:sl_beg, :sl_beg],
+								[:sl_beg, :sl_both],
+								[:sl_middle, :sl_beg],
+								[:sl_middle, :sl_both],
+								[:sl_end, :sl_end],
+								[:sl_end, :sl_middle],
+								[:sl_both, :sl_end],
+								[:sl_both, :sl_middle],
+								[:sl_url, :sl_beg],
+								[:sl_url, :sl_both]
+							else
+								raise Error.new("cannot concatenate path")
+							end
+						end
+					end
+					toConcatenate = @expr[ftt.ipos...ett.ipos + ett.str.size]
+					head = if defined?(AdhocLiterals::Url) && @expr[ftt.iops] =~ /^[a-zA-Z][a-zA-Z0-9\.+\-]*:/
+						URL_HEAD
+					elsif defined?(AdhocLiterals::Path)
+						modeList[0][1] == :both ? BOTH_HEAD : PATH_HEAD
+					end
+					if head
+						@expr[ftt.ipos...ett.ipos + ett.str.size] = head + toConcatenate + ")"
+						@expr.clear_anot
+						raise Restart.new
+					end
+				end
+			end
+		end
+		def pathRestart st, ed, pstack, mode
+			subst = ""
+			inDQ = false
+			dqStart = nil
+			if st < pstack[0]
+				if !["'", '"'].include? @expr[st]
+					subst += '"'
+					dqStart = st
+					inDQ = true
+				end
+			end
+			pstack.each_index do |idx|
+				i, j = pstack[idx], pstack[idx + 1]
+				if inDQ
+					if j
+						if i + 1 == j
+							next
+						elsif ["'", '"'].include? @expr[i + 1]
+							subst += @expr[dqStart .. i] + '"'
+							inDQ = false
+						end
+					end
+				else
+					subst += '"'
+					dqStart = i
+					inDQ = true
+				end
+			end
+			# inDQ should be true
+			if ed - 1 > pstack[-1]
+				if ["'", '"'].include? @expr[ed - 1]
+					subst += @expr[dqStart .. pstack[-1]] + '"' + @expr[pstack[-1] + 1 ... ed]
+				else
+					subst += @expr[dqStart ... ed] + '"'
+				end
+			else
+				subst += '"'
+			end
+			emode = case [@expr[st] == "/", @expr[ed] == "/"]
+			when [true, true]
+				:sl_both
+			when [true, false]
+				:sl_beg
+			when [false, true]
+				:sl_end
+			when [false, false]
+				:sl_middle
+			end
+			@expr.ssubst st...ed, subst, [mode, emode]
+			raise Restart.new
+		end
+		# /"can use backslash escape"		:path
+		# /cannot_use_backslash_escape		:path
+		# /using\ backslash\ /				:regexp
+		# /path[)}\]]						:path and closing ')', '}', ']'
+		# /path,(\s|$)						:path '/path' and comma operator
+		# /path\s							:path '/path'
+		# /foo/i							:both functional object '/foo/i', without space and backslash until closing '/'
+		# /foo/.to_s						:path '/foo/.to_s'
+		# /foo/ .to_s						:both functional object '/foo/' calling method '.to_s'
+		# / a		 	:devide operator
+		# /ab[)\]}] 	:path, '/ab' and parenthesis/bracket/brace closing
+		# /ab,(\s|$)  	:path, '/ab' and comma operator
+		# /ab,c			:path, '/ab,c'
+		# /"ab c" 	 	:path
+		# /"ab c"aaa	:error
+		# /abc"aa		:error
+		# /abc"aa/		:regexp
+		# /abc"aa /		:error: path '/abc"aa', '/'
+		# /"abc / regexp
+		# /"abc/" error, path segment cannot contain '/'
+		# /"abc\/" error, path segment cannot contain '/'
+		# /\"abc d/ regexp
+		# /* c comment start
+		# 
+		def checkPath st, origin = nil, pstack = []
+			firstSlash = @expr[st] == "/"
+			bstack = []
+			i = st
+			i += 1 if @expr[i] == "}" #embeded expression closing
+			k = nil
+			res = nil
+			mode = origin && st != origin ? :path : nil
+			while o = @expr[i]
+				case o
+				when "/"
+					pstack.push i
+					if pstack.size == 3
+						mode = :path
+					end
+					rp = i
+					while ["'", '"'].include? @expr[i + 1]
+						i = getStringEndExceptSlash(i + 1)
+						if !i
+							raise Error.new("cannot find string end, #{@expr[i + 1]}")
+						else
+							j = i
+							while @expr[i + 1] == "/"
+								i += 1
+								pstack.push i
+							end
+						end
+					end
+					if rp != i
+						mode = :path
+						if @expr[i] != "/"
+							break # /"foo"[^\/]
+						end
+					#else continue after "/"
+					end
+				when ",", ";"
+					if @expr[i, 2] =~ /^.(\s|$)/
+						break
+					end
+				when '"', "'", "`"
+					break
+				when ")", "]", "}" #orphan
+					break
+				when "[", "{", "("
+					break if !firstSlash
+					if !(k = getClosing(i))
+						raise Error.new("cannot find closing #{@expr[i]}")
+					end
+				when "#" #embeded expression do not allow first ".", "/", "?", "*", "{}", "[]", otherwise use #wpd{...}, w:wild([],{}.?,*), p:period(.), d:directory(/)
+					k = checkExtendedEmbExpr(i, :path)
+				when "\\"
+					if mode == :path || pstack.size >= 2
+						raise Error.new("path expression without double quotation cannot contain bare backslash, '\\'")
+					else
+						mode = :regexp
+						break
+					end
+				when /\s/
+					break
+				else
+					if o < 0x20
+						raise Error.new("cannot use control character, chr(0x0x#{o.t_s.sprintf('%02x')})")
+					end
+				end
+				if !k
+					i += 1
+				else
+					i = k + 1
+					k = nil
+				end
+			end
+			if !mode && pstack.size == 2
+				ropts = "uesnmxi"
+				j = 1
+				while (c = @expr[pstack[1] + j]) && (roi = ropts.index(c))
+					ropts.slice!(roi)
+					++j
+				end
+				if j != 1 && @expr[pstack[1] + j - 1, 2] =~ /.\b/
+					mode = :both
+				else
+					mode = :path
+				end
+			end
+			if pstack.size != 0
+				if firstSlash
+					if !origin || origin == st
+						pathRestart @expr, st, i, pstack, mode
+					else
+						pathRestart @expr, origin, i, pstack, mode
+					end
+				else
+					yield i, pstack
+				end
+			end
+		end
+		def checkPrevIsPath tenum, st = nil, ed = nil, pstack = nil
+			if tenum
+				t = token = tenum.peek
+				last = nil
+				while t.prev&.kind == :on_tstring_end && ['"', "'"].include?(t.prev.beginner.str[0])
+					t = t.beginner
+				end
+				if t != token
+					checkPath token.ipos, t.ipos # no return raise Restart
+				end
+				i = token.ipos
+			else
+				i = st
+			end
+			k = nil
+			while o = @expr[i]
+				case o
+				when "[", "{", "("
+					break
+				when "]", "}", ")"
+					#if !(k = getOpening(@expr, i))
+						break
+					#end
+				when "\\", '"', "'", '`'
+					break
+				when 0x20
+					if @expr[i - 1] == "\\"
+						i -= 1
+					else
+						break
+					end
+				else
+					if o < 0x20
+						break
+					end
+				end
+				if k
+					i = k - 1
+					k = nil
+				else
+					i -= 1
+				end
+			end
+			if tenum
+				checkPath token.ipos, i + 1
+			else
+				pathRestart i + 1, ed, pstack, :path
+			end
+		end
+
+	end
+end