Online demo of Android App Inventor yail to pseudo-Python renderer

by Philip Guo (pg@cs.stanford.edu)

(Please email me bug reports if an input doesn't render properly. This prototype script doesn't give any helpful error messages.)

Paste .yail source code snippets or entire .yail files here (example code is from No Text While Driving tutorial):
#| $Source $Yail |# (define-form com.gmail.wolberd.notextwhiledriving.Screen1 Screen1) (require <com.google.youngandroid.runtime>) (def response "text") ;;; Screen1 (do-after-form-creation (set-and-coerce-property! Screen1 'Title "No Text While Driving" 'text) ) (define-event Screen1 Initialize() (set-var! response (call-component-method 'TinyDB1 'GetValue (list "responseMessage") '( text) ) ) (if (call-yail-primitive > (list (call-yail-primitive string-length (list (get-var response) ) '( text) "length") 0) '( number number) ">") (begin (set-and-coerce-property! MessageTextbox 'Text (get-var response) 'text) ) ) ) ;;; PromptLabel (add-component Screen1 Label PromptLabel (set-and-coerce-property! PromptLabel 'Text "The text below will be sent in response to all texts while this app is running." 'text) ) ;;; MessageTextbox (add-component Screen1 TextBox MessageTextbox (set-and-coerce-property! MessageTextbox 'Hint "Hint for TextBox1" 'text) (set-and-coerce-property! MessageTextbox 'Text "I'm driving right now, I'll contact you shortly." 'text) (set-and-coerce-property! MessageTextbox 'Width -2 'number) ) ;;; SubmitResponseButton (add-component Screen1 Button SubmitResponseButton (set-and-coerce-property! SubmitResponseButton 'Text "Modify Response" 'text) ) (define-event SubmitResponseButton Click() (call-component-method 'TinyDB1 'StoreValue (list "responseMessage" (get-property MessageTextbox Text) ) '( text any) ) ) ;;; Texting1 (add-component Screen1 Texting Texting1 ) (define-event Texting1 MessageReceived( number messageText ) (set-and-coerce-property! Texting1 'PhoneNumber (lexical-value number) 'text) (set-and-coerce-property! Texting1 'Message (get-property MessageTextbox Text) 'text) (call-component-method 'Texting1 'SendMessage (list) *no-coercion*) ) ;;; TinyDB1 (add-component Screen1 TinyDB TinyDB1 ) (init-runtime #f)

pseudo-Python output: