_src/Test/vbslib_test/T_File/T_WriteVBSLibHeader/T_WriteVBSLibHeader_Foot_SJIS.vbs

   1 Sub  Main( Opt, AppKey )\r
   2         Set w_= AppKey.NewWritable( Array( "out.vbs", "out.txt" ) ).Enable()\r
   3 \r
   4         '// Test Main\r
   5         Set file = OpenForWrite( "out.vbs", Empty )\r
   6         file.WriteLine  "Sub  Main( Opt, AppKey )"\r
   7         file.WriteLine  "       echo ""OK"""\r
   8         file.WriteLine  "End Sub"\r
   9         file.WriteLine  ""\r
  10         file.WriteLine  ""\r
  11         file.WriteLine  " "\r
  12         WriteVBSLibFooter  file, Empty\r
  13         file = Empty\r
  14 \r
  15         '// Check\r
  16         Assert  IsSameBinaryFile( "out.vbs", "ans\ans_Foot_SJIS.vbs", Empty )\r
  17         RunProg  "cscript //nologo  out.vbs", "out.txt"\r
  18         Assert  ReadFile( "out.txt" ) = "OK"+ vbCRLF\r
  19 \r
  20         '// Clean\r
  21         del  "out.vbs"\r
  22         del  "out.txt"\r
  23 \r
  24         Pass\r
  25 End Sub\r
  26 \r
  27 \r
  28  \r
  29 \r
  30 \r
  31 \r
  32 \r
  33 \r
  34 \r
  35 \r
  36 '--- start of vbslib include ------------------------------------------------------ \r
  37 \r
  38 '// \82±\82±\82Ì\93à\95\94\82©\82ç Main \8aÖ\90\94\82ð\8cÄ\82Ñ\8fo\82µ\82Ä\82¢\82Ü\82·\81B\r
  39 '// \82Ü\82½\81Ascriptlib \83t\83H\83\8b\83_\81[\82ð\92T\82µ\82Ä\81Avbslib \82ð\83C\83\93\83N\83\8b\81[\83h\82µ\82Ä\82¢\82Ü\82·\r
  40 \r
  41 '// vbslib include is provided under 3-clause BSD license.\r
  42 '// Copyright (C) Sofrware Design Gallery "Sage Plaisir 21" All Rights Reserved.\r
  43 \r
  44 Dim  g_Vers : If IsEmpty( g_Vers ) Then\r
  45 Set  g_Vers = CreateObject("Scripting.Dictionary") : g_Vers("vbslib") = 99.99\r
  46 Dim  g_debug, g_debug_params, g_admin, g_vbslib_path, g_CommandPrompt, g_fs, g_sh, g_AppKey\r
  47 Dim  g_MainPath, g_SrcPath, g_f, g_include_path, g_i, g_debug_tree, g_debug_process, g_is_compile_debug\r
  48 Dim  g_is64bitWSH\r
  49 g_SrcPath = WScript.ScriptFullName : g_MainPath = g_SrcPath\r
  50 SetupVbslibParameters\r
  51 Set  g_fs = CreateObject( "Scripting.FileSystemObject" )\r
  52 Set  g_sh = WScript.CreateObject("WScript.Shell") : g_f = g_sh.CurrentDirectory\r
  53 g_sh.CurrentDirectory = g_fs.GetParentFolderName( WScript.ScriptFullName )\r
  54 For g_i = 20 To 1 Step -1 : If g_fs.FileExists(g_vbslib_path) Then  Exit For\r
  55 g_vbslib_path = "..\" + g_vbslib_path  : Next\r
  56 If g_fs.FileExists(g_vbslib_path) Then  g_vbslib_path = g_fs.GetAbsolutePathName( g_vbslib_path )\r
  57 g_sh.CurrentDirectory = g_f\r
  58 If g_i=0 Then WScript.Echo "Not found " + g_fs.GetFileName( g_vbslib_path ) +vbCR+vbLF+_\r
  59         "Let's download vbslib and Copy scriptlib folder." : Stop : WScript.Quit 1\r
  60 Set g_f = g_fs.OpenTextFile( g_vbslib_path,,,-2 ): Execute g_f.ReadAll() : g_f = Empty\r
  61 If ResumePush Then  On Error Resume Next\r
  62         CallMainFromVbsLib\r
  63 ResumePop : On Error GoTo 0\r
  64 End If\r
  65 '---------------------------------------------------------------------------------\r
  66 \r
  67 Sub  SetupDebugTools()\r
  68         set_input  ""\r
  69         SetBreakByFName  Empty\r
  70         SetStartSectionTree  ""\r
  71 End Sub\r
  72 \r
  73 Sub  SetupVbslibParameters()\r
  74         '--- start of parameters for vbslib include -------------------------------\r
  75         '// g_Vers("OldMain") = 1\r
  76         g_vbslib_path = "scriptlib\vbs_inc.vbs"\r
  77         g_CommandPrompt = 2\r
  78         g_debug = 0\r
  79         '--- end of parameters for vbslib include ---------------------------------\r
  80 End Sub\r
  81 '--- end of vbslib include --------------------------------------------------------\r
  82 \r
  83 \r
  84  \r