Code: Select all
;// source: https://scotch.io/quick-tips/how-to-encode-and-decode-strings-with-base64-in-javascript
!window.Base64={_keyStr:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=",encode:function(e){var t="";var n,r,i,s,o,u,a;var f=0;e=Base64._utf8_encode(e);while(f<e.length){n=e.charCodeAt(f++);r=e.charCodeAt(f++);i=e.charCodeAt(f++);s=n>>2;o=(n&3)<<4|r>>4;u=(r&15)<<2|i>>6;a=i&63;if(isNaN(r)){u=a=64}else if(isNaN(i)){a=64}t=t+this._keyStr.charAt(s)+this._keyStr.charAt(o)+this._keyStr.charAt(u)+this._keyStr.charAt(a)}return t},decode:function(e){var t="";var n,r,i;var s,o,u,a;var f=0;e=e.replace(/[^A-Za-z0-9\+\/\=]/g,"");while(f<e.length){s=this._keyStr.indexOf(e.charAt(f++));o=this._keyStr.indexOf(e.charAt(f++));u=this._keyStr.indexOf(e.charAt(f++));a=this._keyStr.indexOf(e.charAt(f++));n=s<<2|o>>4;r=(o&15)<<4|u>>2;i=(u&3)<<6|a;t=t+String.fromCharCode(n);if(u!=64){t=t+String.fromCharCode(r)}if(a!=64){t=t+String.fromCharCode(i)}}t=Base64._utf8_decode(t);return t},_utf8_encode:function(e){e=e.replace(/\r\n/g,"\n");var t="";for(var n=0;n<e.length;n++){var r=e.charCodeAt(n);if(r<128){t+=String.fromCharCode(r)}else if(r>127&&r<2048){t+=String.fromCharCode(r>>6|192);t+=String.fromCharCode(r&63|128)}else{t+=String.fromCharCode(r>>12|224);t+=String.fromCharCode(r>>6&63|128);t+=String.fromCharCode(r&63|128)}}return t},_utf8_decode:function(e){var t="";var n=0;var r=c1=c2=0;while(n<e.length){r=e.charCodeAt(n);if(r<128){t+=String.fromCharCode(r);n++}else if(r>191&&r<224){c2=e.charCodeAt(n+1);t+=String.fromCharCode((r&31)<<6|c2&63);n+=2}else{c2=e.charCodeAt(n+1);c3=e.charCodeAt(n+2);t+=String.fromCharCode((r&15)<<12|(c2&63)<<6|c3&63);n+=3}}return t}}
Procedure.s Base64Encode(ValueToEncode.s)
!return Base64.encode(v_ValueToEncode)
EndProcedure
Procedure.s Base64Decode(ValueToDecode.s)
!return Base64.decode(v_ValueToDecode)
EndProcedure
Procedure SetPageHtmlText(Html.s, useBase64.b=#True)
Protected dataUri$="data:text/html"
If useBase64
dataUri$+";base64,"+Base64Encode(Html)
Else
dataUri$+","+URLEncoder(Html)
EndIf
!window.location.replace(v_dataUri$);
EndProcedure
CompilerIf #PB_Compiler_IsMainFile
; *************************
; EXAMPLE
; *************************
Procedure.s CreateReactClass(ComponentName.s, ReactHtml.s="<div class='mycomponent'>[COMPONENT]</div>")
Protected jsx.s="<script type='text/jsx'>"+
"var "+ComponentName+" = React.createClass({"+
" render: function() {"+
" return ("+
" "+ReactHtml+
" );"+
" }"+
"});"+
"</script>"
ProcedureReturn jsx
EndProcedure
Procedure.s ReactRender(ComponentName.s)
Protected jsx.s="<script type='text/jsx'>"+
"React.render("+
" <"+ComponentName+" />,"+
" document.body"+
");"+
"</script>"
ProcedureReturn jsx
EndProcedure
SetPageHtmlText("<!DOCTYPE html>"+
"<html>"+
" <head>"+
" <script src='https://cdnjs.cloudflare.com/ajax/libs/react/0.13.1/react.js'></script>"+
" <script src='https://cdnjs.cloudflare.com/ajax/libs/react/0.13.1/JSXTransformer.js'></script>"+
" </head>"+
" <body>"+
CreateReactClass("CommentBox") +
ReactRender("CommentBox") +
" </body>"+
"</html>")
CompilerEndIf