├── .gitignore
├── LICENSE.md
├── README.md
├── sample-web-site
    ├── Bin
    │   └── VueJSWebForms.dll
    ├── Web.config
    ├── car.vue
    ├── index.html
    ├── sample-servertemplate.aspx
    ├── sample-vue-file.aspx
    └── sample-vuejs.aspx
└── src
    ├── Module1.vb
    ├── My Project
        ├── Application.Designer.vb
        ├── Application.myapp
        ├── AssemblyInfo.vb
        ├── Resources.Designer.vb
        ├── Resources.resx
        ├── Settings.Designer.vb
        └── Settings.settings
    ├── ServerTemplate.vb
    ├── VueApp.vb
    ├── VueComponent.vb
    ├── VueFilesToJS.vb
    ├── VueJSWebForms.sln
    └── VueJSWebForms.vbproj


/.gitignore:
--------------------------------------------------------------------------------
1 | src/obj/
2 | src/bin/
3 | *.suo
4 | src/.vs/
5 | *.user
6 | .vs/
7 | 


--------------------------------------------------------------------------------
/LICENSE.md:
--------------------------------------------------------------------------------
 1 | MIT License
 2 | 
 3 | Copyright (c) 2018 Jesper Høy
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
  1 | #  Vue.js ASP.NET Web Forms Helpers
  2 | 
  3 | This library (.NET Framework 4.5) contains 3 ASP.NET Web Forms controls to simplify integrating Vue.js and .vue files with ASP.NET Web Forms.
  4 | 
  5 | It is based on and includes the [VueFilesToJS library](https://github.com/jesperhoy/VueFilesToJS).
  6 | 
  7 | ## How to use
  8 | 
  9 | [Download the "VueJSWebForms.dll" file](https://github.com/jesperhoy/VueJSWebForms/releases) and drop this into your ASP.NET web site's "bin" folder.
 10 | 
 11 | Or install via [NuGet](https://www.nuget.org/packages/jesperhoy.VueJSWebForms) - search for "jesperhoy.VueJSWebForms".
 12 | 
 13 | You can reference the library at the top of each Web Forms page like this:
 14 | 
 15 | ```ASP
 16 | <%@ Page ... %>
 17 | <%@ Register Assembly="VueJSWebForms" Namespace="VueJSWebForms" TagPrefix="vue" %>
 18 | ```
 19 | 
 20 | Or you can reference it globally in the `web.config` file:
 21 | 
 22 | ```XML
 23 | <configuration>
 24 |   <system.web>   
 25 |     <pages>
 26 |       <controls>
 27 |         <add assembly="VueJSWebForms" namespace="VueJSWebForms" tagPrefix="vue" />
 28 | ```
 29 | 
 30 | And then use the controls with .vue files like this:
 31 | 
 32 | ```HTML
 33 | <vue:Component file="/car.vue" runat="server" />
 34 | 
 35 | <vue:App file="/app.vue" runat="server" />
 36 | ```
 37 | 
 38 | Or with simple in-line templates like this:
 39 | 
 40 | ```HTML
 41 | <vue:Component name="car" options="{props: ['make','year']}" runat="server">
 42 |     <li>This {{make}} is {{(new Date()).getFullYear() - year}} years old.</li>
 43 | </vue:Component>        
 44 | 
 45 | <vue:App options="{data:{cars:[{Make:'Buick',Year:2001},{Make:'Pontiac',Year:1998}]}}" runat="server" >
 46 |     <ul>
 47 |         <car v-for="car in cars" :make="car.Make" :year="car.Year" />
 48 |     </ul>
 49 | </vue:App>
 50 | ```
 51 | 
 52 | Or with in-line templates in .vue file format like this:
 53 | 
 54 | ```HTML
 55 | <vue:Component name="car" runat="server">
 56 |     <template>
 57 |         <li>This {{make}} is {{(new Date()).getFullYear() - year}} years old.</li>
 58 |     </template>
 59 |     <script>
 60 |         export default {
 61 |             props: ['make','year']
 62 |         }
 63 |     </script>
 64 | </vue:Component>        
 65 | 
 66 | <vue:App runat="server" >
 67 |     <template>
 68 |         <ul>
 69 |             <car v-for="car in cars" :make="car.Make" :year="car.Year" />
 70 |         </ul>
 71 |     <template>
 72 |     <script>
 73 |         export default {
 74 |             data: { cars: [{Make:'Buick',Year:2001},{Make:'Pontiac',Year:1998}] }
 75 |         }
 76 |     </script>
 77 | </vue:App>
 78 | ```
 79 | 
 80 | Note: If an in-line template starts with `<template>`, then the library treats it as .vue file format. Otherwise it treats it as simple.
 81 | 
 82 | Note: In-line templates can of course include ASP.NET Web Forms server tags, which are rendered before Vue.js compiles the template. For example:
 83 | 
 84 | ```HTML
 85 | <vue:App runat="server">
 86 |     <template>
 87 |         <p>Today is: <%:DateTime.Now.ToLongDateString()%></p>
 88 |     </template>
 89 |     <script>
 90 |         export default {
 91 |             data: <%=SomeDataFromADatabase%>
 92 |         }
 93 |     </script>
 94 | </vue:App>
 95 | ```
 96 | 
 97 | ## .vue files vs. in-line templates
 98 | 
 99 | If you need to include server rendered data inside the Vue template with `<%...%>` tags (see above), then an in-line template is the only option.
100 | 
101 | Otherwise, the easiest way is to start with in-line templates. Then at some point when the page becomes too big, it is easy to copy the content of each component/app control to separate (.vue) file.
102 | 
103 | Note: When using .vue files, the JavaScript output is cached between requests (involved .vue files including component imports are monitored for changes). This means that for the first request, using .vue files will be slower than in-line templates because the files(s) have to be loaded from disc. But for subsequent requests, .vue files will be faster than in-line templates because the template processing is already done.
104 | 
105 | 
106 | ## Web Forms controls 
107 | 
108 | - **Component**
109 | 
110 |     Makes it easy to render a Vue.js component for re-use in a Vue.js application or in other Vue.js components.
111 | 
112 |     Attributes/Properties:
113 |     - `File` - virtual path of a .vue file (for example "/components/list1.vue"). If not specified, the content of the control is used instead.
114 |     - `Name` - the name of the component (tag-name in app/other components). If not specified and `File` is, the file name (without path / suffix) will be used as the component name.
115 |     - `Options` - Vue options for the component in JavaScript format. Only used with simple in-line templates.
116 |     - `SquashWS` - Boolean value (default true) indicating if all white space in HTML templates should be squashed (sequences of space, `<LF>`, `<CR>`, `<Tab>` are replaced with a single space).
117 | 
118 |     Events (server side):
119 |     - `PostBack(eventArgument)`- Raised when script in the Vue.js component calls `this.$options.PostBack(eventArgument)`. Note that the server control must have an `ID` attribute for this to be available.
120 | 
121 | - **App**
122 | 
123 |     Makes it easy to render a Vue.js application instance.
124 | 
125 |     Attributes/Properties:
126 |     - `File` - virtual path of a .vue file (for example "/components/list1.vue"). If not specified, the content of the control is used instead.
127 |     - `VarName` - global JavasScript variable name to reference the Vue instance. Required if `Mount` is set to `false`.
128 |     - `Options` - Vue options for the app in JavaScript format. Only used with simple in-line templates.
129 |     - `Mount` - Boolean value (default true) indicating if a `<div>` tag with a random id should be generated and the Vue instance mounted to this.
130 |     - `SquashWS` - Boolean value (default true) indicating if all white space in HTML templates should be squashed (sequences of space, `<LF>`, `<CR>`, `<Tab>` are replaced with a single space).
131 | 
132 |     Events (server side):
133 |     - `PostBack(eventArgument)`- Raised when script in the Vue.js application calls `this.$options.PostBack(eventArgument)`. Note that the server control must have an `ID` attribute for this to be available.
134 | 
135 |   
136 | - **ServerTemplate**
137 | 
138 |     Used to extract inner HTML content. The content is not rendered directly to the page but can be obtained through .NET methods.
139 | 
140 |     The purpose of this is to get HTML syntax highlighting and intellisense in the HTML editor in Visual Studio. This is not really specific to Vue.js, but is convenient when authoring more complex Vue.js applications / components. 
141 | 
142 |     Methods:
143 |     - `Content()` - Returns the content HTML as a string.
144 |     - `ContentJS()` - Returns content HTML encoded as a JavaScript string.
145 | 
146 |     Attributes/Properties:
147 |     - `SquashWS` - Boolean value (default true) indicating if all white space in HTML templates should be squashed (sequences of space, `<LF>`, `<CR>`, `<Tab>` are replaced with a single space).
148 | 
149 | 
150 | ## Examples
151 | 
152 | - [Using Component and App controls](sample-web-site/sample-vuejs.aspx)
153 | - [Using Component control with .vue file](sample-web-site/sample-vue-file.aspx)
154 | - [Using ServerTemplate control](sample-web-site/sample-servertemplate.aspx)
155 | 
156 | ## Requirements / limitations for .vue files (including in-line templates in .vue file format)
157 | 
158 | Note: The aim of this library is to use a .vue file format which is compatible with standard Vue.js build tools (WebPack etc.). Not the other way around. This library does NOT support all the standard .vue file features.
159 | 
160 | The following .vue file layout is supported:
161 | 
162 | - The .vue file(s) must have one `<template>` section followed by one `<script>` section, and NO `<style>` section (scoped style is not supported).
163 | 
164 | - The `<script>` section may reference an external JavaScript script file like this:\
165 |  `<script src="file.js"></script>`
166 | 
167 |  - The script (contained in or referenced by the `<script>` section) must be plain JavaScript. However, the `src` option mentioned above makes it possible to use TypeScript and other languages that compile to plain JavaScript.\
168 |  (TIP: To use TypeScript source files, use TypeScript compiler options  `"noImplicitUseStrict": true` and `"module": "es6"` to make the compiled .js files match these requirements)
169 | 
170 | - The script may only contain one or more `import` statements (to include other .vue files as components) followed by a single `export default {...}` statement.
171 | 
172 | - Each script `import` statement must follow the exact format:\
173 | `import Name from 'file.vue';`
174 | 
175 | An example of a valid .vue file:
176 | 
177 | ```HTML
178 | <template>
179 |     <dog :name="DogName">
180 | </template>
181 | 
182 | <script>
183 | import dog from 'dog.vue';
184 | export default {
185 |     data: { DogName: "Fido" },
186 |     components: { "dog": dog }
187 | };
188 | </script>
189 | ```
190 | 
191 | ## Versioning
192 | 
193 | This project uses [Semantic Versioning](https://semver.org/).
194 | 
195 | ## License
196 | 
197 | This project is licensed under the MIT License - see the [LICENSE.md](LICENSE.md) file for details
198 | 
199 | ## Contributions
200 | 
201 | Contributions are most welcome. No contribution is too big or too small.
202 | 
203 | Fork this repository, clone locally, make your updates, commit, push, create a pull request in GitHub...
204 | 
205 | 
206 | 


--------------------------------------------------------------------------------
/sample-web-site/Bin/VueJSWebForms.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/jesperhoy/VueJSWebForms/947f7e186174034a6cf79c07b5c62d0eb347b125/sample-web-site/Bin/VueJSWebForms.dll


--------------------------------------------------------------------------------
/sample-web-site/Web.config:
--------------------------------------------------------------------------------
1 | <?xml version="1.0"?>
2 | <configuration>
3 |   <system.web>
4 |     <compilation debug="true" targetFramework="4.0"/>
5 |   </system.web>
6 | </configuration>


--------------------------------------------------------------------------------
/sample-web-site/car.vue:
--------------------------------------------------------------------------------
 1 | <template>
 2 |   <li>This {{make}} is {{(new Date()).getFullYear() - year}} years old.</li>
 3 | </template>
 4 | 
 5 | <script>
 6 | export default {
 7 |       props: ['make','year']
 8 |     };
 9 | </script>
10 | 


--------------------------------------------------------------------------------
/sample-web-site/index.html:
--------------------------------------------------------------------------------
 1 | <html>
 2 | <head>
 3 |   <title>Vue.JS ASP.NET Web Forms Helpers - Examples</title>
 4 | </head>
 5 | <body>
 6 |   <h1>Vue.JS ASP.NET Web Forms Helpers - Examples</h1>
 7 | 
 8 |   <ul>
 9 |     <li><a href="sample-vuejs.aspx"><b>Component</b> and <b>App</b> controls - in-line</a></li>
10 |     <li><a href="sample-vue-file.aspx">Using .vue file</a></li>
11 |     <li><a href="sample-servertemplate.aspx"><b>ScriptTemplate</b> control</a></li>
12 |   </ul>
13 | 
14 | </body>
15 | </html>


--------------------------------------------------------------------------------
/sample-web-site/sample-servertemplate.aspx:
--------------------------------------------------------------------------------
 1 | <%@ Page Language="C#" %>
 2 | <%@ Register Assembly="VueJSWebForms" Namespace="VueJSWebForms" TagPrefix="vue" %>
 3 | 
 4 | <html>
 5 | <head>
 6 |   <script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
 7 | </head>
 8 | 
 9 | <body>
10 | 
11 | <vue:ServerTemplate ID="template1" runat="server">
12 | <div>
13 |   <p>Today is: <%:DateTime.Now.ToLongDateString()%></p>
14 |   <p>{{ message }}</p>
15 | </div>
16 | </vue:ServerTemplate>
17 | 
18 | <div id="app"></div>
19 | 
20 | <script>
21 |   new Vue({
22 |     el: '#app',
23 |     template: <%=template1.ContentJS()%>,
24 |     data: {
25 |       message: 'Hello Vue!'
26 |     }
27 |   });
28 | </script>
29 | 
30 | </body>
31 | </html>
32 | 


--------------------------------------------------------------------------------
/sample-web-site/sample-vue-file.aspx:
--------------------------------------------------------------------------------
 1 | <%@ Page Language="C#" %>
 2 | <%@ Register Assembly="VueJSWebForms" Namespace="VueJSWebForms" TagPrefix="vue" %>
 3 | 
 4 | <html>
 5 |   <head>
 6 |      <script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
 7 |   </head>
 8 | 
 9 | <body>
10 | 
11 | <vue:Component File="/car.vue" runat="server" />
12 | 
13 | <vue:App runat="server">
14 |   <template>
15 |     <div>
16 |       <h1>{{title}}</h1>
17 |       <p>Today is: <%:DateTime.Now.ToLongDateString()%></p>
18 |       <ul>
19 |         <car v-for="car in cars" :make="car.Make" :year="car.Year" />
20 |       </ul>
21 |     </div>
22 |   </template>
23 |   <script>
24 |     export default {
25 |       data: { title: 'Age of cars',
26 |                     cars: [{ Make: 'Buick', Year:2001 },
27 |                             { Make: 'Pontiac', Year:1998 },
28 |                             { Make: 'BMW', Year:2003 },
29 |                             { Make: 'Nissan', Year:2015 }]}
30 |     }
31 |   </script>
32 | </vue:App>
33 | 
34 | </body>
35 | </html>
36 | 


--------------------------------------------------------------------------------
/sample-web-site/sample-vuejs.aspx:
--------------------------------------------------------------------------------
 1 | <%@ Page Language="C#" %>
 2 | <%@ Register Assembly="VueJSWebForms" Namespace="VueJSWebForms" TagPrefix="vue" %>
 3 | 
 4 | <html>
 5 |   <head>
 6 |      <script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script>
 7 |   </head>
 8 | <body>
 9 | 
10 | <vue:Component Name="car" Options="{props: ['make','year']}" runat="server">
11 |   <li>This {{make}} is {{(new Date()).getFullYear() - year}} years old.</li>
12 | </vue:Component>
13 | 
14 | <vue:App runat="server">
15 |   <template>
16 |     <div>
17 |       <h1>{{title}}</h1>
18 |       <p>Today is: <%:DateTime.Now.ToLongDateString()%></p>
19 |       <ul>
20 |         <car v-for="car in cars" :make="car.Make" :year="car.Year" />
21 |       </ul>
22 |     </div>
23 |   </template>
24 |   <script>
25 |     export default {
26 |       data: { title: 'Age of cars',
27 |               cars: [{ Make: 'Buick', Year:2001 },
28 |                       { Make: 'Pontiac', Year:1998 },
29 |                       { Make: 'BMW', Year:2003 },
30 |                       { Make: 'Nissan', Year:2015 }]}
31 |     }
32 |   </script>
33 | </vue:App>
34 | 
35 | </body>
36 | </html>
37 | 


--------------------------------------------------------------------------------
/src/Module1.vb:
--------------------------------------------------------------------------------
 1 | Imports System.Web.UI
 2 | 
 3 | Friend Module Module1
 4 | 
 5 |   Friend Function MakeVueOptions(content As String, prpFile As String, prpOptions As String, prpsquashWS As Boolean, embedExtra As String) As String
 6 |     Dim ctx = System.Web.HttpContext.Current
 7 |     If String.IsNullOrEmpty(prpFile) Then
 8 |       REM In-line template
 9 |       If content.Length = 0 Then Throw New Exception("Template is empty")
10 |       If content.StartsWith("<template>", StringComparison.InvariantCultureIgnoreCase) Then
11 |         If Not String.IsNullOrEmpty(prpOptions) Then Throw New Exception("Control cannot have 'Options' property when content starts with <template>")
12 |         Return "(" & VueFilesToJS.Compile(ctx.Server.MapPath("~/"), ctx.Request.Url.AbsolutePath, embedExtra, prpsquashWS, content) & ")()"
13 |       Else
14 |         prpOptions = If(prpOptions, "").Trim
15 |         If prpOptions.Length = 0 Then prpOptions = "{}"
16 |         If Not prpOptions.StartsWith("{") OrElse Not prpOptions.EndsWith("}") Then Throw New Exception("Invalid 'Options' property")
17 |         If prpsquashWS Then content = VueFilesToJS.SquashWhiteSpace(content)
18 |         Return "{" & embedExtra &
19 |                   "template:" & VueFilesToJS.JSStringEncode(content) & "," &
20 |                   prpOptions.Substring(1)
21 |       End If
22 |     End If
23 | 
24 |     REM .vue File
25 |     If content.Length > 0 Then Throw New Exception("Control cannot have content when used with 'File' property")
26 |     If Not String.IsNullOrEmpty(prpOptions) Then Throw New Exception("Control cannot both 'File' and 'Options' properties")
27 | 
28 |     'If Not useCache Then Return "(" & VueFilesToJS.Compile(ctx.Server.MapPath("~/"), prpFile, prpsquashWS) & ")()"
29 | 
30 |     Dim f As String
31 |     Dim CacheKey = "VueJSWebForm:" & ctx.Request.MapPath(prpFile)
32 |     Dim obj = ctx.Cache.Get(CacheKey)
33 |     If obj Is Nothing Then
34 |       Dim FileList As New List(Of String)
35 |       f = VueFilesToJS.Compile(ctx.Server.MapPath("~/"), prpFile, embedExtra, prpsquashWS, Nothing, AddressOf FileList.Add)
36 |       ctx.Cache.Add(CacheKey, f, New Web.Caching.CacheDependency(FileList.ToArray), Web.Caching.Cache.NoAbsoluteExpiration, Web.Caching.Cache.NoSlidingExpiration, Web.Caching.CacheItemPriority.Normal, Nothing)
37 |     Else
38 |       f = DirectCast(obj, String)
39 |     End If
40 | 
41 |     Return "(" & f & ")()"
42 |   End Function
43 | 
44 | End Module
45 | 


--------------------------------------------------------------------------------
/src/My Project/Application.Designer.vb:
--------------------------------------------------------------------------------
 1 | '------------------------------------------------------------------------------
 2 | ' <auto-generated>
 3 | '     This code was generated by a tool.
 4 | '     Runtime Version:4.0.30319.42000
 5 | '
 6 | '     Changes to this file may cause incorrect behavior and will be lost if
 7 | '     the code is regenerated.
 8 | ' </auto-generated>
 9 | '------------------------------------------------------------------------------
10 | 
11 | Option Strict On
12 | Option Explicit On
13 | 
14 | 


--------------------------------------------------------------------------------
/src/My Project/Application.myapp:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="utf-8"?>
 2 | <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
 3 |   <MySubMain>false</MySubMain>
 4 |   <SingleInstance>false</SingleInstance>
 5 |   <ShutdownMode>0</ShutdownMode>
 6 |   <EnableVisualStyles>true</EnableVisualStyles>
 7 |   <AuthenticationMode>0</AuthenticationMode>
 8 |   <ApplicationType>1</ApplicationType>
 9 |   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
10 | </MyApplicationData>
11 | 


--------------------------------------------------------------------------------
/src/My Project/AssemblyInfo.vb:
--------------------------------------------------------------------------------
 1 | Imports System
 2 | Imports System.Reflection
 3 | Imports System.Runtime.InteropServices
 4 | 
 5 | ' General Information about an assembly is controlled through the following
 6 | ' set of attributes. Change these attribute values to modify the information
 7 | ' associated with an assembly.
 8 | 
 9 | ' Review the values of the assembly attributes
10 | 
11 | <Assembly: AssemblyTitle("Vue.js ASP.NET Web Forms helpers")>
12 | <Assembly: AssemblyDescription("")>
13 | <Assembly: AssemblyCompany("")>
14 | <Assembly: AssemblyProduct("Vue.js ASP.NET Web Forms helpers")>
15 | <Assembly: AssemblyCopyright("Copyright © 2018-2021 Jesper Høy")>
16 | <Assembly: AssemblyTrademark("")>
17 | 
18 | <Assembly: ComVisible(False)>
19 | 
20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM
21 | <Assembly: Guid("f488b07b-8e1f-4b11-82dd-3a6f225b8ca2")>
22 | 
23 | ' Version information for an assembly consists of the following four values:
24 | '
25 | '      Major Version
26 | '      Minor Version
27 | '      Build Number
28 | '      Revision
29 | '
30 | ' You can specify all the values or you can default the Build and Revision Numbers
31 | ' by using the '*' as shown below:
32 | ' <Assembly: AssemblyVersion("1.0.*")>
33 | 
34 | <Assembly: AssemblyVersion("3.3.0.0")>
35 | <Assembly: AssemblyFileVersion("3.3.0.0")>
36 | 


--------------------------------------------------------------------------------
/src/My Project/Resources.Designer.vb:
--------------------------------------------------------------------------------
 1 | '------------------------------------------------------------------------------
 2 | ' <auto-generated>
 3 | '     This code was generated by a tool.
 4 | '     Runtime Version:4.0.30319.42000
 5 | '
 6 | '     Changes to this file may cause incorrect behavior and will be lost if
 7 | '     the code is regenerated.
 8 | ' </auto-generated>
 9 | '------------------------------------------------------------------------------
10 | 
11 | Option Strict On
12 | Option Explicit On
13 | 
14 | Imports System
15 | 
16 | Namespace My.Resources
17 |     
18 |     'This class was auto-generated by the StronglyTypedResourceBuilder
19 |     'class via a tool like ResGen or Visual Studio.
20 |     'To add or remove a member, edit your .ResX file then rerun ResGen
21 |     'with the /str option, or rebuild your VS project.
22 |     '''<summary>
23 |     '''  A strongly-typed resource class, for looking up localized strings, etc.
24 |     '''</summary>
25 |     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
26 |      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
27 |      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
28 |      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
29 |     Friend Module Resources
30 |         
31 |         Private resourceMan As Global.System.Resources.ResourceManager
32 |         
33 |         Private resourceCulture As Global.System.Globalization.CultureInfo
34 |         
35 |         '''<summary>
36 |         '''  Returns the cached ResourceManager instance used by this class.
37 |         '''</summary>
38 |         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
39 |         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
40 |             Get
41 |                 If Object.ReferenceEquals(resourceMan, Nothing) Then
42 |                     Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VueJSWebForms.Resources", GetType(Resources).Assembly)
43 |                     resourceMan = temp
44 |                 End If
45 |                 Return resourceMan
46 |             End Get
47 |         End Property
48 |         
49 |         '''<summary>
50 |         '''  Overrides the current thread's CurrentUICulture property for all
51 |         '''  resource lookups using this strongly typed resource class.
52 |         '''</summary>
53 |         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
54 |         Friend Property Culture() As Global.System.Globalization.CultureInfo
55 |             Get
56 |                 Return resourceCulture
57 |             End Get
58 |             Set
59 |                 resourceCulture = value
60 |             End Set
61 |         End Property
62 |     End Module
63 | End Namespace
64 | 


--------------------------------------------------------------------------------
/src/My Project/Resources.resx:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="utf-8"?>
  2 | <root>
  3 |   <!-- 
  4 |     Microsoft ResX Schema 
  5 |     
  6 |     Version 2.0
  7 |     
  8 |     The primary goals of this format is to allow a simple XML format 
  9 |     that is mostly human readable. The generation and parsing of the 
 10 |     various data types are done through the TypeConverter classes 
 11 |     associated with the data types.
 12 |     
 13 |     Example:
 14 |     
 15 |     ... ado.net/XML headers & schema ...
 16 |     <resheader name="resmimetype">text/microsoft-resx</resheader>
 17 |     <resheader name="version">2.0</resheader>
 18 |     <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
 19 |     <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
 20 |     <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
 21 |     <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
 22 |     <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
 23 |         <value>[base64 mime encoded serialized .NET Framework object]</value>
 24 |     </data>
 25 |     <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
 26 |         <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
 27 |         <comment>This is a comment</comment>
 28 |     </data>
 29 |                 
 30 |     There are any number of "resheader" rows that contain simple 
 31 |     name/value pairs.
 32 |     
 33 |     Each data row contains a name, and value. The row also contains a 
 34 |     type or mimetype. Type corresponds to a .NET class that support 
 35 |     text/value conversion through the TypeConverter architecture. 
 36 |     Classes that don't support this are serialized and stored with the 
 37 |     mimetype set.
 38 |     
 39 |     The mimetype is used for serialized objects, and tells the 
 40 |     ResXResourceReader how to depersist the object. This is currently not 
 41 |     extensible. For a given mimetype the value must be set accordingly:
 42 |     
 43 |     Note - application/x-microsoft.net.object.binary.base64 is the format 
 44 |     that the ResXResourceWriter will generate, however the reader can 
 45 |     read any of the formats listed below.
 46 |     
 47 |     mimetype: application/x-microsoft.net.object.binary.base64
 48 |     value   : The object must be serialized with 
 49 |             : System.Serialization.Formatters.Binary.BinaryFormatter
 50 |             : and then encoded with base64 encoding.
 51 |     
 52 |     mimetype: application/x-microsoft.net.object.soap.base64
 53 |     value   : The object must be serialized with 
 54 |             : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
 55 |             : and then encoded with base64 encoding.
 56 | 
 57 |     mimetype: application/x-microsoft.net.object.bytearray.base64
 58 |     value   : The object must be serialized into a byte array 
 59 |             : using a System.ComponentModel.TypeConverter
 60 |             : and then encoded with base64 encoding.
 61 |     -->
 62 |   <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
 63 |     <xsd:element name="root" msdata:IsDataSet="true">
 64 |       <xsd:complexType>
 65 |         <xsd:choice maxOccurs="unbounded">
 66 |           <xsd:element name="metadata">
 67 |             <xsd:complexType>
 68 |               <xsd:sequence>
 69 |                 <xsd:element name="value" type="xsd:string" minOccurs="0" />
 70 |               </xsd:sequence>
 71 |               <xsd:attribute name="name" type="xsd:string" />
 72 |               <xsd:attribute name="type" type="xsd:string" />
 73 |               <xsd:attribute name="mimetype" type="xsd:string" />
 74 |             </xsd:complexType>
 75 |           </xsd:element>
 76 |           <xsd:element name="assembly">
 77 |             <xsd:complexType>
 78 |               <xsd:attribute name="alias" type="xsd:string" />
 79 |               <xsd:attribute name="name" type="xsd:string" />
 80 |             </xsd:complexType>
 81 |           </xsd:element>
 82 |           <xsd:element name="data">
 83 |             <xsd:complexType>
 84 |               <xsd:sequence>
 85 |                 <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
 86 |                 <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
 87 |               </xsd:sequence>
 88 |               <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
 89 |               <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
 90 |               <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
 91 |             </xsd:complexType>
 92 |           </xsd:element>
 93 |           <xsd:element name="resheader">
 94 |             <xsd:complexType>
 95 |               <xsd:sequence>
 96 |                 <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
 97 |               </xsd:sequence>
 98 |               <xsd:attribute name="name" type="xsd:string" use="required" />
 99 |             </xsd:complexType>
100 |           </xsd:element>
101 |         </xsd:choice>
102 |       </xsd:complexType>
103 |     </xsd:element>
104 |   </xsd:schema>
105 |   <resheader name="resmimetype">
106 |     <value>text/microsoft-resx</value>
107 |   </resheader>
108 |   <resheader name="version">
109 |     <value>2.0</value>
110 |   </resheader>
111 |   <resheader name="reader">
112 |     <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
113 |   </resheader>
114 |   <resheader name="writer">
115 |     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
116 |   </resheader>
117 | </root>


--------------------------------------------------------------------------------
/src/My Project/Settings.Designer.vb:
--------------------------------------------------------------------------------
 1 | '------------------------------------------------------------------------------
 2 | ' <auto-generated>
 3 | '     This code was generated by a tool.
 4 | '     Runtime Version:4.0.30319.42000
 5 | '
 6 | '     Changes to this file may cause incorrect behavior and will be lost if
 7 | '     the code is regenerated.
 8 | ' </auto-generated>
 9 | '------------------------------------------------------------------------------
10 | 
11 | Option Strict On
12 | Option Explicit On
13 | 
14 | 
15 | Namespace My
16 |     
17 |     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
18 |      Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.8.0.0"),  _
19 |      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
20 |     Partial Friend NotInheritable Class MySettings
21 |         Inherits Global.System.Configuration.ApplicationSettingsBase
22 |         
23 |         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24 |         
25 | #Region "My.Settings Auto-Save Functionality"
26 | #If _MyType = "WindowsForms" Then
27 |     Private Shared addedHandler As Boolean
28 | 
29 |     Private Shared addedHandlerLockObject As New Object
30 | 
31 |     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32 |     Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
33 |         If My.Application.SaveMySettingsOnExit Then
34 |             My.Settings.Save()
35 |         End If
36 |     End Sub
37 | #End If
38 | #End Region
39 |         
40 |         Public Shared ReadOnly Property [Default]() As MySettings
41 |             Get
42 |                 
43 | #If _MyType = "WindowsForms" Then
44 |                If Not addedHandler Then
45 |                     SyncLock addedHandlerLockObject
46 |                         If Not addedHandler Then
47 |                             AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 |                             addedHandler = True
49 |                         End If
50 |                     End SyncLock
51 |                 End If
52 | #End If
53 |                 Return defaultInstance
54 |             End Get
55 |         End Property
56 |     End Class
57 | End Namespace
58 | 
59 | Namespace My
60 |     
61 |     <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
62 |      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
63 |      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
64 |     Friend Module MySettingsProperty
65 |         
66 |         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
67 |         Friend ReadOnly Property Settings() As Global.VueJSWebForms.My.MySettings
68 |             Get
69 |                 Return Global.VueJSWebForms.My.MySettings.Default
70 |             End Get
71 |         End Property
72 |     End Module
73 | End Namespace
74 | 


--------------------------------------------------------------------------------
/src/My Project/Settings.settings:
--------------------------------------------------------------------------------
1 | <?xml version='1.0' encoding='utf-8'?>
2 | <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
3 |   <Profiles>
4 |     <Profile Name="(Default)" />
5 |   </Profiles>
6 |   <Settings />
7 | </SettingsFile>
8 | 


--------------------------------------------------------------------------------
/src/ServerTemplate.vb:
--------------------------------------------------------------------------------
 1 | Imports System.Web.UI
 2 | 
 3 | <ParseChildren>
 4 | Public Class ServerTemplate
 5 |   Inherits System.Web.UI.WebControls.WebControl
 6 | 
 7 |   Public Property SquashWS As Boolean = True
 8 | 
 9 |   Private _Content As String
10 | 
11 |   Public Function Content() As String
12 |     Return _Content
13 |   End Function
14 | 
15 |   Public Function ContentJS() As String
16 |     Return VueFilesToJS.JSStringEncode(_Content)
17 |   End Function
18 | 
19 |   Protected Overrides Sub Render(writer As HtmlTextWriter)
20 |     Dim sw = New IO.StringWriter
21 |     Dim htw = New HtmlTextWriter(sw)
22 |     MyBase.RenderChildren(htw)
23 |     _Content = sw.ToString.Trim()
24 |     If SquashWS Then _Content = VueFilesToJS.SquashWhiteSpace(_Content)
25 |   End Sub
26 | 
27 |   Public Overrides Sub RenderBeginTag(writer As HtmlTextWriter)
28 |     REM nothing
29 |   End Sub
30 | 
31 |   Public Overrides Sub RenderEndTag(writer As HtmlTextWriter)
32 |     REM nothing
33 |   End Sub
34 | 
35 | End Class
36 | 


--------------------------------------------------------------------------------
/src/VueApp.vb:
--------------------------------------------------------------------------------
 1 | Imports System.Web.UI
 2 | 
 3 | <ParseChildren>
 4 | Public Class App
 5 |   Inherits System.Web.UI.WebControls.WebControl
 6 |   Implements IPostBackEventHandler
 7 | 
 8 |   Property File As String
 9 |   Property VarName As String
10 |   Property Options As String
11 |   Property Mount As Boolean = True
12 |   Property SquashWS As Boolean = True
13 | 
14 |   Public Event PostBack(eventArgument As String)
15 | 
16 |   Protected Overrides Sub Render(writer As HtmlTextWriter)
17 |     Dim sw = New IO.StringWriter
18 |     Dim htw = New HtmlTextWriter(sw)
19 |     MyBase.RenderChildren(htw)
20 |     Dim Content = sw.ToString.Trim
21 | 
22 |     Dim opt = MakeVueOptions(Content, File, Options, SquashWS,
23 |                              If(Me.ID Is Nothing, "", "PostBack(ea) {" & Me.Page.ClientScript.GetPostBackEventReference(Me, "#").Replace("'#'", "ea") & "},"))
24 | 
25 |     If Mount Then
26 |       Dim DivName = "VueApp"
27 |       Dim rnd = New Random
28 |       For i = 0 To 10
29 |         DivName &= Chr(65 + rnd.Next(0, 26))
30 |       Next
31 |       If String.IsNullOrEmpty(VarName) Then VarName = DivName
32 |       writer.WriteLine("<div id=""" & DivName & """></div>")
33 |       writer.WriteLine("<script>")
34 |       writer.WriteLine("var " & VarName & "=new Vue(" & opt & ");")
35 |       writer.WriteLine(VarName & ".$mount('#" & DivName & "');")
36 |       writer.WriteLine("</script>")
37 |     Else
38 |       If String.IsNullOrEmpty(VarName) Then Throw New Exception("Must provide 'VarName' property when 'Mount' is False")
39 |       writer.WriteLine("<script>")
40 |       writer.WriteLine("var " & VarName & "=new Vue(" & opt & ");")
41 |       writer.WriteLine("</script>")
42 |     End If
43 |   End Sub
44 | 
45 |   Public Overrides Sub RenderBeginTag(writer As HtmlTextWriter)
46 |     REM nothing
47 |   End Sub
48 | 
49 |   Public Overrides Sub RenderEndTag(writer As HtmlTextWriter)
50 |     REM nothing
51 |   End Sub
52 | 
53 |   Public Sub RaisePostBackEvent(eventArgument As String) Implements IPostBackEventHandler.RaisePostBackEvent
54 |     RaiseEvent PostBack(eventArgument)
55 |   End Sub
56 | 
57 | End Class
58 | 


--------------------------------------------------------------------------------
/src/VueComponent.vb:
--------------------------------------------------------------------------------
 1 | Imports System.Web.UI
 2 | 
 3 | <ParseChildren>
 4 | Public Class Component
 5 |   Inherits System.Web.UI.WebControls.WebControl
 6 |   Implements IPostBackEventHandler
 7 | 
 8 |   Property File As String
 9 |   Property Name As String
10 |   Property Options As String
11 |   Property SquashWS As Boolean = True
12 | 
13 |   Public Event PostBack(eventArgument As String)
14 | 
15 |   Protected Overrides Sub Render(writer As HtmlTextWriter)
16 |     If String.IsNullOrEmpty(Name) Then
17 |       If String.IsNullOrEmpty(File) Then Throw New Exception("'Name' or 'File' property is required")
18 |       Name = File.Substring(0, File.LastIndexOf("."))
19 |       Name = Name.Substring(Name.LastIndexOf("/") + 1)
20 |     End If
21 | 
22 |     Dim sw = New IO.StringWriter
23 |     Dim htw = New HtmlTextWriter(sw)
24 |     MyBase.RenderChildren(htw)
25 |     Dim Content = sw.ToString.Trim
26 | 
27 |     Dim opt = MakeVueOptions(Content, File, Options, SquashWS,
28 |                              If(Me.ID Is Nothing, "", "PostBack(ea) {" & Me.Page.ClientScript.GetPostBackEventReference(Me, "#").Replace("'#'", "ea") & "},"))
29 | 
30 |     writer.WriteLine("<script>")
31 |     writer.WriteLine("Vue.component('" & Name & "'," & opt & ");")
32 |     writer.WriteLine("</script>")
33 |   End Sub
34 | 
35 |   Public Overrides Sub RenderBeginTag(writer As HtmlTextWriter)
36 |     REM nothing
37 |   End Sub
38 | 
39 |   Public Overrides Sub RenderEndTag(writer As HtmlTextWriter)
40 |     REM nothing
41 |   End Sub
42 | 
43 |   Public Sub RaisePostBackEvent(eventArgument As String) Implements IPostBackEventHandler.RaisePostBackEvent
44 |     RaiseEvent PostBack(eventArgument)
45 |   End Sub
46 | 
47 | End Class
48 | 


--------------------------------------------------------------------------------
/src/VueFilesToJS.vb:
--------------------------------------------------------------------------------
  1 | Public Class VueFilesToJS
  2 |   Private Components As New Dictionary(Of String, Component)
  3 |   Private WsRoot As String
  4 |   Private SquashWS As Boolean
  5 |   Private FileReadCallback As Action(Of String) = Nothing
  6 | 
  7 |   Public Shared Function Compile(wsRootPath As String, sourceFile As String, embedExtra As String, Optional squashWS As Boolean = True, Optional rootFileContent As String = Nothing, Optional fileReadCallback As Action(Of String) = Nothing) As String
  8 |     If wsRootPath.EndsWith("\") Then wsRootPath = wsRootPath.Substring(0, wsRootPath.Length - 1)
  9 |     Dim inst = New VueFilesToJS With {.WsRoot = wsRootPath, .SquashWS = squashWS, .FileReadCallback = fileReadCallback}
 10 |     Return inst.ProcRoot(sourceFile, rootFileContent, embedExtra)
 11 |   End Function
 12 | 
 13 |   Private Sub New()
 14 |     REM private constructor so only Compile function can create instance
 15 |   End Sub
 16 | 
 17 |   Private Function ProcRoot(vueFile As String, FileContent As String, embedExtra As String) As String
 18 |     Dim res = ParseVueFile(vueFile, Nothing, FileContent)
 19 | 
 20 |     Dim sb As New System.Text.StringBuilder
 21 |     sb.AppendLine("function() {")
 22 | 
 23 |     For Each c In Components.Values
 24 |       c.Render(sb)
 25 |     Next
 26 | 
 27 |     sb.AppendLine("  return {" & vbCrLf &
 28 |                      embedExtra &
 29 |                     "  template: " & JSStringEncode(res.Template) & "," & vbCrLf &
 30 |                     res.Script.Substring(1).Trim & ";")
 31 |     sb.AppendLine("}")
 32 | 
 33 |     Return sb.ToString
 34 |   End Function
 35 | 
 36 |   'wsroot = "c:\web-sites\tjek" (no ending \)
 37 |   Private Function ParseVueFile(vueFile As String, fromComp As Component, Optional fileContent As String = Nothing) As ParseVueFileResult
 38 |     Dim cp = ResolvePath(vueFile)
 39 |     Dim vfWin = WsRoot & cp.Replace("/", "\") & JustFN(vueFile)
 40 |     Dim x As String
 41 |     If fileContent Is Nothing Then
 42 |       If FileReadCallback IsNot Nothing Then FileReadCallback(vfWin)
 43 |       x = My.Computer.FileSystem.ReadAllText(vfWin).Trim
 44 |     Else
 45 |       x = fileContent.Trim
 46 |     End If
 47 | 
 48 |     If Not x.EndsWith("</script>") Then Throw New Exception(".vue file '" & vueFile & "' does not end with </script>")
 49 |     x = x.Substring(0, x.Length - 9).Trim
 50 |     Dim i = x.LastIndexOf("<script")
 51 |     If i < 0 Then Throw New Exception("Start <script> tag not found in .vue file '" & vueFile & "'")
 52 |     Dim y = x.Substring(i + 7).Trim
 53 |     x = x.Substring(0, i).Trim
 54 | 
 55 |     REM get script
 56 |     Dim Scrpt As String = Nothing
 57 |     Dim sfWin As String = Nothing
 58 |     If y.StartsWith(">") Then
 59 |       Scrpt = y.Substring(1).Trim
 60 |       sfWin = vfWin
 61 |     Else
 62 |       If Not y.StartsWith("src=""") Then Throw New Exception("Invalid <script> tag in .vue file '" & vueFile & "' - must be <script> or <script src=""..."">")
 63 |       y = y.Substring(5)
 64 |       i = y.IndexOf(""""c)
 65 |       If i < 0 Then Throw New Exception("Invalid <script> tag in .vue file '" & vueFile & "' - must be <script> or <script src=""..."">")
 66 |       Dim sfWeb = y.Substring(0, i).Trim
 67 |       Dim sfPath = ResolvePath(sfWeb, cp)
 68 |       sfWin = WsRoot & sfPath.Replace("/", "\") & JustFN(sfWeb)
 69 |       y = y.Substring(i + 1)
 70 |       If y <> ">" Then Throw New Exception("Invalid <script> tag in .vue file '" & vueFile & "' - must be <script> or <script src=""..."">")
 71 |       Scrpt = My.Computer.FileSystem.ReadAllText(sfWin).Trim
 72 |     End If
 73 | 
 74 |     REM validate script
 75 |     'import Home from './components/Home.vue';
 76 |     While Scrpt.StartsWith("import ", StringComparison.InvariantCultureIgnoreCase)
 77 |       i = Scrpt.IndexOf(";")
 78 |       Dim z = Scrpt.Substring(7, i - 7).Trim
 79 |       Scrpt = Scrpt.Substring(i + 1).Trim
 80 |       i = z.IndexOf(" ")
 81 |       Dim CompName = z.Substring(0, i)
 82 |       z = z.Substring(i + 1).Trim
 83 |       If Not z.StartsWith("from ") Then Throw New Exception("Invalid import statement in file '" & sfWin & "'")
 84 |       z = z.Substring(5).Trim
 85 |       If Not ((z.StartsWith("'") And z.EndsWith("'")) Or (z.StartsWith("""") And z.EndsWith(""""))) Then Throw New Exception("Invalid import statement in file '" & sfWin & "'")
 86 |       z = z.Substring(1, z.Length - 2)
 87 |       ProcComponent(CompName, ResolvePath(z, cp) & JustFN(z), fromComp)
 88 |     End While
 89 | 
 90 |     If Not Scrpt.StartsWith("export ") Then Throw New Exception("Script (after any import statements) does not start with 'export default {' in file '" & sfWin & "'")
 91 |     Scrpt = Scrpt.Substring(7).Trim
 92 |     If Not Scrpt.StartsWith("default") Then Throw New Exception("Script (after any import statements) does not start with 'export default {' in file '" & sfWin & "'")
 93 |     Scrpt = Scrpt.Substring(7).Trim
 94 |     If Not Scrpt.StartsWith("{") Then Throw New Exception("Script (after any import statements) does not start with 'export default {' in file '" & sfWin & "'")
 95 |     If Scrpt.EndsWith(";") Then Scrpt = Scrpt.Substring(0, Scrpt.Length - 1).Trim
 96 | 
 97 |     REM validate remaining = template
 98 |     If Not x.StartsWith("<template>") Then Throw New Exception(".vue file '" & vueFile & "' does not start with <template>")
 99 |     x = x.Substring(10)
100 |     If Not x.EndsWith("</template>") Then Throw New Exception(".vue file '" & vueFile & "' does not end with </template> (after script is extracted)")
101 |     x = x.Substring(0, x.Length - 11).Trim
102 | 
103 |     If SquashWS Then x = SquashWhiteSpace(x)
104 | 
105 |     Return New ParseVueFileResult With {.Template = x, .Script = Scrpt}
106 |   End Function
107 | 
108 |   Private Shared WhiteSpace As Char() = (" " & vbTab & vbLf & vbCr).ToArray
109 |   Public Shared Function SquashWhiteSpace(x As String) As String
110 |     Dim sb = New System.Text.StringBuilder
111 |     Dim p = 0
112 |     Dim i As Integer
113 |     Do
114 |       i = x.IndexOfAny(WhiteSpace, p)
115 |       If i < 0 Then sb.Append(x.Substring(p)) : Return sb.ToString
116 |       sb.Append(x.Substring(p, i - p))
117 |       sb.Append(" ")
118 |       p = i + 1
119 |       While p < x.Length AndAlso WhiteSpace.Contains(x(p))
120 |         p += 1
121 |       End While
122 |     Loop
123 |   End Function
124 | 
125 |   REM cp='/',  '/kurt',  '/kurt/viggo'...
126 |   Private Function ResolvePath(fn As String, Optional cp As String = "/") As String
127 |     If fn.Contains("\") Then Throw New Exception("invalid \ character in file name")
128 |     If fn.StartsWith("/") Then fn = fn.Substring(1) : cp = "/"
129 |     Dim i As Integer
130 |     Dim firstRound = True
131 |     While True
132 |       If fn.StartsWith("../") Then fn = fn.Substring(3) : cp = cp.Substring(0, cp.LastIndexOf("/", cp.Length - 2) + 1) : Continue While
133 |       If fn.StartsWith("./") Then fn = fn.Substring(2) : Continue While
134 |       i = fn.IndexOf("/")
135 |       If i < 0 Then Exit While
136 |       If i = 0 Then Throw New Exception("invalid / in path")
137 |       cp &= fn.Substring(0, i + 1)
138 |       fn = fn.Substring(i + 1)
139 |     End While
140 |     Return cp
141 |   End Function
142 | 
143 |   Private Function JustFN(fn As String) As String
144 |     Dim i = fn.LastIndexOf("/")
145 |     If i < 0 Then Return fn
146 |     Return fn.Substring(i + 1)
147 |   End Function
148 | 
149 |   Public Shared Function JSStringEncode(x As String) As String
150 |     Return "'" & (x.Replace("\", "\\").Replace(vbCrLf, "\n").Replace(vbCr, "\n").Replace(vbLf, "\n").Replace(vbTab, "\t").Replace("'", "\'")) & "'"
151 |   End Function
152 | 
153 |   Private Structure ParseVueFileResult
154 |     Public Template As String
155 |     Public Script As String
156 |   End Structure
157 | 
158 |   Private Sub ProcComponent(compName As String, vueFile As String, parentComp As Component)
159 |     Dim c As Component = Nothing
160 |     If Components.TryGetValue(compName, c) Then
161 |       If String.Compare(vueFile, c.File, True) <> 0 Then Throw New Exception("Two file components ('" & vueFile & "' / '" & c.File & "') referenced with same import name (" & compName & ")")
162 |       If parentComp IsNot Nothing Then parentComp.SubComps.Add(c)
163 |       Exit Sub
164 |     End If
165 |     For Each c In Components.Values
166 |       If String.Compare(vueFile, c.File, True) = 0 Then
167 |         c = New Component With {.Name = compName, .File = vueFile, .AliasFor = c}
168 |         If parentComp IsNot Nothing Then parentComp.SubComps.Add(c)
169 |         Components.Add(compName, c)
170 |         Exit Sub
171 |       End If
172 |     Next
173 |     c = New Component With {.Name = compName, .File = vueFile}
174 |     If parentComp IsNot Nothing Then parentComp.SubComps.Add(c)
175 |     Components.Add(compName, c)
176 |     c.pvfr = ParseVueFile(vueFile, c)
177 |   End Sub
178 | 
179 |   Private Class Component
180 |     Public Name As String
181 |     Public File As String
182 |     Public AliasFor As Component = Nothing
183 |     Public pvfr As ParseVueFileResult
184 |     Public SubComps As New List(Of Component)
185 |     Public Rendered As Boolean = False
186 | 
187 |     Public Sub Render(toSB As System.Text.StringBuilder)
188 |       If Rendered Then Exit Sub
189 |       If AliasFor IsNot Nothing Then
190 |         AliasFor.Render(toSB)
191 |         toSB.AppendLine("  var " & Name & "=" & AliasFor.Name & ";")
192 |       Else
193 |         For Each c In SubComps
194 |           c.Render(toSB)
195 |         Next
196 |         toSB.AppendLine("  var " & Name & "={template:" & JSStringEncode(pvfr.Template) & ",")
197 |         toSB.AppendLine(pvfr.Script.Substring(1).Trim & ";")
198 |       End If
199 |       Rendered = True
200 |     End Sub
201 | 
202 |   End Class
203 | 
204 | End Class
205 | 


--------------------------------------------------------------------------------
/src/VueJSWebForms.sln:
--------------------------------------------------------------------------------
 1 | 
 2 | Microsoft Visual Studio Solution File, Format Version 12.00
 3 | # Visual Studio 15
 4 | VisualStudioVersion = 15.0.27703.2042
 5 | MinimumVisualStudioVersion = 10.0.40219.1
 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VueJSWebForms", "VueJSWebForms.vbproj", "{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}"
 7 | EndProject
 8 | Global
 9 | 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
10 | 		Debug|Any CPU = Debug|Any CPU
11 | 		Release|Any CPU = Release|Any CPU
12 | 	EndGlobalSection
13 | 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
14 | 		{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
15 | 		{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}.Debug|Any CPU.Build.0 = Debug|Any CPU
16 | 		{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}.Release|Any CPU.ActiveCfg = Release|Any CPU
17 | 		{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}.Release|Any CPU.Build.0 = Release|Any CPU
18 | 	EndGlobalSection
19 | 	GlobalSection(SolutionProperties) = preSolution
20 | 		HideSolutionNode = FALSE
21 | 	EndGlobalSection
22 | 	GlobalSection(ExtensibilityGlobals) = postSolution
23 | 		SolutionGuid = {25C59E8B-0820-47D0-B91A-504819950736}
24 | 	EndGlobalSection
25 | EndGlobal
26 | 


--------------------------------------------------------------------------------
/src/VueJSWebForms.vbproj:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="utf-8"?>
  2 | <Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 |   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
  4 |   <PropertyGroup>
  5 |     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
  6 |     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
  7 |     <ProjectGuid>{BDF9BE22-0DBC-4AD0-9FA4-24D20EE2E92D}</ProjectGuid>
  8 |     <OutputType>Library</OutputType>
  9 |     <RootNamespace>VueJSWebForms</RootNamespace>
 10 |     <AssemblyName>VueJSWebForms</AssemblyName>
 11 |     <FileAlignment>512</FileAlignment>
 12 |     <MyType>Windows</MyType>
 13 |     <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
 14 |   </PropertyGroup>
 15 |   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
 16 |     <DebugSymbols>true</DebugSymbols>
 17 |     <DebugType>full</DebugType>
 18 |     <DefineDebug>true</DefineDebug>
 19 |     <DefineTrace>true</DefineTrace>
 20 |     <OutputPath>bin\Debug\</OutputPath>
 21 |     <DocumentationFile>VueJSWebForms.xml</DocumentationFile>
 22 |     <NoWarn>
 23 |     </NoWarn>
 24 |     <WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
 25 |   </PropertyGroup>
 26 |   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
 27 |     <DebugType>pdbonly</DebugType>
 28 |     <DefineDebug>false</DefineDebug>
 29 |     <DefineTrace>true</DefineTrace>
 30 |     <Optimize>true</Optimize>
 31 |     <OutputPath>bin\Release\</OutputPath>
 32 |     <DocumentationFile>VueJSWebForms.xml</DocumentationFile>
 33 |     <NoWarn>
 34 |     </NoWarn>
 35 |     <WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
 36 |   </PropertyGroup>
 37 |   <PropertyGroup>
 38 |     <OptionExplicit>On</OptionExplicit>
 39 |   </PropertyGroup>
 40 |   <PropertyGroup>
 41 |     <OptionCompare>Binary</OptionCompare>
 42 |   </PropertyGroup>
 43 |   <PropertyGroup>
 44 |     <OptionStrict>On</OptionStrict>
 45 |   </PropertyGroup>
 46 |   <PropertyGroup>
 47 |     <OptionInfer>On</OptionInfer>
 48 |   </PropertyGroup>
 49 |   <ItemGroup>
 50 |     <Reference Include="System" />
 51 |     <Reference Include="System.Web" />
 52 |     <Reference Include="System.Core" />
 53 |   </ItemGroup>
 54 |   <ItemGroup>
 55 |     <Import Include="Microsoft.VisualBasic" />
 56 |     <Import Include="System" />
 57 |     <Import Include="System.Collections" />
 58 |     <Import Include="System.Collections.Generic" />
 59 |     <Import Include="System.Linq" />
 60 |   </ItemGroup>
 61 |   <ItemGroup>
 62 |     <Compile Include="Module1.vb" />
 63 |     <Compile Include="ServerTemplate.vb" />
 64 |     <Compile Include="VueComponent.vb" />
 65 |     <Compile Include="VueApp.vb" />
 66 |     <Compile Include="VueFilesToJS.vb" />
 67 |     <Compile Include="My Project\AssemblyInfo.vb" />
 68 |     <Compile Include="My Project\Application.Designer.vb">
 69 |       <AutoGen>True</AutoGen>
 70 |       <DependentUpon>Application.myapp</DependentUpon>
 71 |     </Compile>
 72 |     <Compile Include="My Project\Resources.Designer.vb">
 73 |       <AutoGen>True</AutoGen>
 74 |       <DesignTime>True</DesignTime>
 75 |       <DependentUpon>Resources.resx</DependentUpon>
 76 |     </Compile>
 77 |     <Compile Include="My Project\Settings.Designer.vb">
 78 |       <AutoGen>True</AutoGen>
 79 |       <DependentUpon>Settings.settings</DependentUpon>
 80 |       <DesignTimeSharedInput>True</DesignTimeSharedInput>
 81 |     </Compile>
 82 |   </ItemGroup>
 83 |   <ItemGroup>
 84 |     <EmbeddedResource Include="My Project\Resources.resx">
 85 |       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
 86 |       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
 87 |       <CustomToolNamespace>My.Resources</CustomToolNamespace>
 88 |       <SubType>Designer</SubType>
 89 |     </EmbeddedResource>
 90 |   </ItemGroup>
 91 |   <ItemGroup>
 92 |     <None Include="My Project\Application.myapp">
 93 |       <Generator>MyApplicationCodeGenerator</Generator>
 94 |       <LastGenOutput>Application.Designer.vb</LastGenOutput>
 95 |     </None>
 96 |     <None Include="My Project\Settings.settings">
 97 |       <Generator>SettingsSingleFileGenerator</Generator>
 98 |       <CustomToolNamespace>My</CustomToolNamespace>
 99 |       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
100 |     </None>
101 |   </ItemGroup>
102 |   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
103 | </Project>


--------------------------------------------------------------------------------