• R/O
  • HTTP
  • SSH
  • HTTPS

bashlib-develop: Commit

開発中の bashlib


Commit MetaInfo

Revision8128dbc2be55668d53af7bb053a01cfdac3dbe00 (tree)
Zeit2011-10-09 21:46:25
AutorYour Name <you@exam...>
CommiterYour Name

Log Message

update

Ändern Zusammenfassung

Diff

--- /dev/null
+++ b/document/ReleaseVML_patch/ModifyVml.vbs
@@ -0,0 +1,110 @@
1+Option Explicit
2+
3+
4+Sub Main( Opt, AppKey )
5+ Dim w_:Set w_=AppKey.NewWritable( "." ).Enable() '// ƒXƒNƒŠƒvƒg‚ªA‚±‚̃tƒ@ƒCƒ‹‚ª‚ ‚éƒtƒHƒ‹ƒ_[ˆÈ‰º‚ð‘‚«ž‚Ý‚Å‚«‚é‚悤‚É‚·‚éB
6+ '// Stop:OrError '// ƒ}ƒ‹ƒ`EƒvƒƒZƒX‚Ì‚Æ‚«‚́A‚±‚ê‚ð‹Lq‚µAg_debug=0 ‚ÅŽÀs‚µAg_debug_process ‚ɐݒ肷‚ׂ«’l‚ðŠm”F‚µ‚Ü‚·B
7+ Dim paths, path, text
8+
9+ For Each path In htmls
10+ text = ReadFile( path )
11+ text = Replace( text, "MS-Gothic,monospace", "‚l‚r ƒSƒVƒbƒN" )
12+ text = Replace( text, " href=""\\ubuntu\bashlib\", " xhref=""\\ubuntu\bashlib\" )
13+ CreateFile path, text
14+ Next
15+
16+ Dim file
17+ Set file = OpenForReplace( "vml\bashlib.files\bashlib_01.html", Empty )
18+ file.Replace "href=""..\bash.files\bash_01.html""", _
19+ "href=""..\bash.html"" target=""_top"""
20+ file.Replace "href=""..\linux.files\linux_01.html""", _
21+ "href=""..\linux.html"" target=""_top"""
22+ file = Empty
23+End Sub
24+
25+
26+
27+Dim htmls : htmls = Array( _
28+ "vml\bash.files\bash_01.html",_
29+ "vml\bash.files\bash_02.html",_
30+ "vml\bash.files\bash_03.html",_
31+ "vml\bashlib.files\bashlib_01.html",_
32+ "vml\bashlib.files\bashlib_02.html",_
33+ "vml\bashlib.files\bashlib_03.html",_
34+ "vml\bashlib.files\bashlib_04.html",_
35+ "vml\bashlib.files\bashlib_05.html",_
36+ "vml\bashlib.files\bashlib_06.html",_
37+ "vml\bashlib.files\bashlib_07.html",_
38+ "vml\linux.files\linux_01.html",_
39+ "vml\linux.files\linux_02.html",_
40+ "vml\linux.files\linux_03.html",_
41+ "vml\linux.files\linux_04.html",_
42+ "vml\linux.files\linux_05.html",_
43+ "vml\linux.files\linux_06.html",_
44+ "vml\linux.files\linux_07.html",_
45+ "vml\linux.files\linux_08.html",_
46+ "vml\linux.files\linux_09.html",_
47+ "vml\linux.files\linux_10.html",_
48+ "vml\linux.files\linux_11.html",_
49+ "vml\linux.files\linux_12.html",_
50+ "vml\linux.files\linux_13.html",_
51+ "vml\linux.files\linux_14.html",_
52+ "vml\linux.files\linux_15.html" )
53+
54+
55+
56+
57+
58+
59+
60+'--- start of vbslib include ------------------------------------------------------
61+
62+'// ‚±‚±‚Ì“à•”‚©‚ç Main ŠÖ”‚ðŒÄ‚яo‚µ‚Ä‚¢‚Ü‚·B
63+'// ‚Ü‚½Ascriptlib ƒtƒHƒ‹ƒ_[‚ð’T‚µ‚āAvbslib ‚ðƒCƒ“ƒNƒ‹[ƒh‚µ‚Ä‚¢‚Ü‚·
64+
65+'// vbslib is provided under 3-clause BSD license.
66+'// Copyright (C) 2007-2011 Sofrware Design Gallery "Sage Plaisir 21" All Rights Reserved.
67+
68+Dim g_Vers : If IsEmpty( g_Vers ) Then
69+Set g_Vers = CreateObject("Scripting.Dictionary") : g_Vers.Add "vbslib", 4.0
70+Dim g_debug, g_debug_params, g_admin, g_vbslib_path, g_CommandPrompt, g_fs, g_sh, g_AppKey
71+Dim g_MainPath, g_SrcPath, g_f, g_include_path, i, g_debug_tree, g_debug_process, g_b_compile_debug
72+g_SrcPath = WScript.ScriptFullName : g_MainPath = g_SrcPath
73+SetupVbslibParameters
74+Set g_fs = CreateObject( "Scripting.FileSystemObject" )
75+Set g_sh = WScript.CreateObject("WScript.Shell") : g_f = g_sh.CurrentDirectory
76+g_sh.CurrentDirectory = g_fs.GetParentFolderName( WScript.ScriptFullName )
77+For i = 20 To 1 Step -1 : If g_fs.FileExists(g_vbslib_path) Then Exit For
78+g_vbslib_path = "..\" + g_vbslib_path : Next
79+If g_fs.FileExists(g_vbslib_path) Then g_vbslib_path = g_fs.GetAbsolutePathName( g_vbslib_path )
80+g_sh.CurrentDirectory = g_f
81+If i=0 Then WScript.Echo "Not found " + g_fs.GetFileName( g_vbslib_path ) +vbCR+vbLF+_
82+ "Let's download vbslib "&g_Vers.Item("vbslib")&" and Copy scriptlib folder." : Stop : WScript.Quit 1
83+Set g_f = g_fs.OpenTextFile( g_vbslib_path ): Execute g_f.ReadAll() : g_f = Empty
84+If ResumePush Then On Error Resume Next
85+ CallMainFromVbsLib
86+ResumePop : On Error GoTo 0
87+End If
88+'---------------------------------------------------------------------------------
89+
90+Sub SetupDebugTools()
91+ set_input ""
92+ SetBreakByFName Empty
93+ SetStartSectionTree ""
94+End Sub
95+
96+Sub SetupVbslibParameters()
97+ '--- start of parameters for vbslib include -------------------------------
98+ '// g_Vers("OldMain") = 1
99+ g_vbslib_path = "scriptlib\vbs_inc.vbs"
100+ g_CommandPrompt = 2
101+
102+ g_debug = 0 '// release:0, debug:99, -1:call SetupDebugTools
103+ '// ‚l‚rƒIƒtƒBƒX‚âƒRƒ“ƒpƒCƒ‰‚ª‚ ‚ê‚΁Ag_debug ‚ð 1 ˆÈã‚É‚·‚é‚ƃfƒoƒbƒK[‚ªŽg‚¦‚Ü‚·B
104+ '// ƒXƒeƒbƒvŽÀs‚ðŠJŽn‚·‚éêŠ‚âA•Ï”‚Ì’l‚ðŠm”F‚µ‚½‚¢êŠ‚ɁAStop –½—ß‚ð‹Lq‚µ‚Ä‚­‚¾‚³‚¢B
105+
106+ '--- end of parameters for vbslib include ---------------------------------
107+End Sub
108+'--- end of vbslib include --------------------------------------------------------
109+
110+
--- /dev/null
+++ b/document/ReleaseVML_patch/ReleaseVML.xml
@@ -0,0 +1,13 @@
1+<?xml version="1.0" encoding="Shift_JIS"?>
2+
3+<release>
4+ <server url="." local="vml" pub="*"
5+ title="document" first="bashlib.html">
6+ <folder src="." dest=".">
7+ <file src="\\ubuntu\bashlib\bashlib\document\bashlib.svg" dest="bashlib.html" conv="vml">bashlib</file>
8+ <file src="C:\home\mem_cache\MyDoc\programming\ƒXƒNƒŠƒvƒg\ƒVƒFƒ‹ƒXƒNƒŠƒvƒg\ƒVƒFƒ‹ƒXƒNƒŠƒvƒg.svg" dest="bash.html" conv="vml">bash</file>
9+ <file src="C:\home\mem_cache\MyDoc\programming\OS\UNIX-Linux\!Linux.svg" dest="linux.html" conv="vml">Linux</file>
10+ </folder>
11+ </server>
12+</release>
13+
--- /dev/null
+++ b/document/ReleaseVML_patch/ReleaseVML_setting.vbs
@@ -0,0 +1,46 @@
1+Option Explicit
2+
3+Dim g_ReleaseXml
4+
5+Sub ReleaseXml_Setting()
6+ Dim wf_:Set wf_= New WorkFolderStack
7+
8+ g_ReleaseXml.XML_Path = "ReleaseVML.xml"
9+ g_ReleaseXml.XML_Base = g_fs.GetBaseName( g_ReleaseXml.XML_Path )
10+ g_ReleaseXml.OutFolder = "vml"
11+ g_ReleaseXml.PublicURL = "."
12+ g_ReleaseXml.KeywordsFolder = g_ReleaseXml.OutFolder
13+ g_ReleaseXml.ChmName = ""
14+
15+End Sub
16+
17+
18+'********************************************************************************
19+' <<< [ReleaseXml_finish] >>>
20+'********************************************************************************
21+Sub ReleaseXml_finish()
22+
23+End Sub
24+
25+
26+'********************************************************************************
27+' <<< [ReleaseXml_AutoEditToLink] >>>
28+'********************************************************************************
29+Sub ReleaseXml_AutoEditToLink()
30+ Dim f,t,line
31+
32+ t = ""
33+ Set f = g_fs.OpenTextFile( g_ReleaseXml.OutFolder + "\all_out.links.txt" )
34+ Do Until f.AtEndOfStream
35+ line = f.ReadLine
36+ If Left( line, 2 ) = "\\" Then Exit Do
37+ If Left( line, 5 ) = "http:" Then Exit Do
38+ t = t + line +vbCR+vbLF
39+ Loop
40+ f = Empty
41+
42+ Set f = g_fs.CreateTextFile( g_ReleaseXml.OutFolder + "\all_out.links.txt", True, False )
43+ f.Write t
44+ f = Empty
45+End Sub
46+
--- a/document/bashlib.html
+++ b/document/bashlib.html
@@ -197,7 +197,7 @@ azBtjuMG2473FVb0wbS9Hw86TwkGAoTw+Pwj2+aD/AJj5Kw2fzgGpAAAAABJRU5ErkJggg=="/>
197197 <text x="338.5px" y="948.5px" style="fill:rgb(0,0,255);font-family:メイリオ;font-size:7pt;text-anchor:start" xml:space="preserve">この文書は Snap Note を使って作られています。</text>
198198 </a>
199199 <text x="70.5px" y="700.5px" style="fill:rgb(0,0,0);font-family:メイリオ;font-size:8pt;text-anchor:start" xml:space="preserve">上記リンク先は、</text>
200- <a xlink:href="http://www.sage-p.com/vbslib/bashlib.files/bashlib.html" target="_blank">
200+ <a xlink:href="http://www.sage-p.com/scriptlib/bashlib-vml/bashlib.html" target="_blank">
201201 <text x="159.5px" y="700.5px" style="fill:rgb(0,0,255);font-family:メイリオ;font-size:8pt;text-anchor:start" xml:space="preserve">Internet Explorer 版の文書</text>
202202 </a>
203203 <text x="301.5px" y="700.5px" style="fill:rgb(0,0,0);font-family:メイリオ;font-size:8pt;text-anchor:start" xml:space="preserve">でのみ参照できます。</text>
Binary files a/document/bashlib.svg and b/document/bashlib.svg differ
Show on old repository browser