Skip to content
Browse files

Modifications for Gambit REPL v2.0 for iOS

  • Loading branch information...
1 parent 4f42f83 commit 394beeb81e24ce90722b8798459a6405c17e8c23 @feeley committed
Showing with 2,904 additions and 939 deletions.
  1. +130 −86 examples/iOS/AccessoryView.xib
  2. BIN examples/iOS/GambitREPL.xcodeproj.tgz
  3. +2 −2 examples/iOS/Info.plist
  4. +109 −232 examples/iOS/MainWindow.xib
  5. +2 −1 examples/iOS/README
  6. +1 −1 examples/iOS/ViewController.h
  7. +17 −7 examples/iOS/ViewController.m
  8. +94 −3 examples/iOS/ViewController.xib
  9. BIN examples/iOS/edit.png
  10. +15 −0 examples/iOS/html#.scm
  11. +331 −0 examples/iOS/html.scm
  12. +17 −0 examples/iOS/json#.scm
  13. +269 −0 examples/iOS/json.scm
  14. BIN examples/iOS/key-8ball-46x42.png
  15. BIN examples/iOS/key-comma-46x42.png
  16. BIN examples/iOS/key-doublequote-46x42.png
  17. BIN examples/iOS/key-edit-46x42.png
  18. BIN examples/iOS/key-empty-46x42.png
  19. BIN examples/iOS/key-f1-46x42.png
  20. BIN examples/iOS/key-f10-46x42.png
  21. BIN examples/iOS/key-f11-46x42.png
  22. BIN examples/iOS/key-f12-46x42.png
  23. BIN examples/iOS/key-f2-46x42.png
  24. BIN examples/iOS/key-f3-46x42.png
  25. BIN examples/iOS/key-f4-46x42.png
  26. BIN examples/iOS/key-f5-46x42.png
  27. BIN examples/iOS/key-f6-46x42.png
  28. BIN examples/iOS/key-f7-46x42.png
  29. BIN examples/iOS/key-f8-46x42.png
  30. BIN examples/iOS/key-f9-46x42.png
  31. BIN examples/iOS/key-heart-46x42.png
  32. BIN examples/iOS/key-lambda-46x42.png
  33. BIN examples/iOS/key-lparen-46x42.png
  34. BIN examples/iOS/key-minus-46x42.png
  35. BIN examples/iOS/key-note-46x42.png
  36. BIN examples/iOS/key-plus-46x42.png
  37. BIN examples/iOS/key-quote-46x42.png
  38. BIN examples/iOS/key-rocket-46x42.png
  39. BIN examples/iOS/key-rparen-46x42.png
  40. BIN examples/iOS/key-sharp-46x42.png
  41. BIN examples/iOS/key-star-46x42.png
  42. BIN examples/iOS/key-stop-46x42.png
  43. BIN examples/iOS/key-user-46x42.png
  44. +40 −0 examples/iOS/make-appstore-screenshots
  45. +139 −0 examples/iOS/make-keys
  46. +48 −31 examples/iOS/makefile.in
  47. +1,047 −576 examples/iOS/program.scm
  48. +16 −0 examples/iOS/url#.scm
  49. +139 −0 examples/iOS/url.scm
  50. +27 −0 examples/iOS/wiki#.scm
  51. +461 −0 examples/iOS/wiki.scm
View
216 examples/iOS/AccessoryView.xib
@@ -45,7 +45,7 @@
<object class="IBUIButton" id="132451787">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{930, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{929, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="208197093"/>
@@ -63,7 +63,6 @@
<double key="NSSize">18</double>
<int key="NSfFlags">16</int>
</object>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">(</string>
<object class="NSColor" key="IBUIHighlightedTitleColor" id="107046278">
<int key="NSColorSpace">3</int>
@@ -77,11 +76,15 @@
<int key="NSColorSpace">3</int>
<bytes key="NSWhite">MAA</bytes>
</object>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-lparen-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="351566180">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{882, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{881, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="132451787"/>
@@ -95,7 +98,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">+</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -103,11 +105,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-plus-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="569669015">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{738, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{737, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="933032107"/>
@@ -121,7 +127,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">#</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -129,11 +134,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-sharp-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="214816834">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{690, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{689, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="569669015"/>
@@ -147,7 +156,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">"</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -155,11 +163,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-doublequote-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="965625217">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{642, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{641, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="214816834"/>
@@ -173,7 +185,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">'</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -181,11 +192,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-quote-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="420911439">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{594, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{593, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="965625217"/>
@@ -199,7 +214,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">STOP</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -208,13 +223,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">stop.png</string>
+ <string key="NSResourceName">key-stop-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="47015903">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{546, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{545, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="420911439"/>
@@ -227,8 +242,12 @@
<string key="targetRuntimeIdentifier">IBCocoaTouchFramework</string>
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
- <reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <object class="NSFont" key="IBUIFont">
+ <string key="NSName">CourierNewPS-BoldMT</string>
+ <double key="NSSize">14</double>
+ <int key="NSfFlags">16</int>
+ </object>
+ <string key="IBUINormalTitle">EDIT</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -237,13 +256,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">edit.png</string>
+ <string key="NSResourceName">key-edit-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="949690578">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{498, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{497, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="47015903"/>
@@ -257,7 +276,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F11</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -266,13 +285,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f11.png</string>
+ <string key="NSResourceName">key-f11-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="237724049">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{450, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{449, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="949690578"/>
@@ -286,7 +305,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F10</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -295,13 +314,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f10.png</string>
+ <string key="NSResourceName">key-f10-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="133391447">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{402, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{401, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="237724049"/>
@@ -315,7 +334,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F9</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -324,13 +343,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f9.png</string>
+ <string key="NSResourceName">key-f9-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="858870631">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{354, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{353, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="133391447"/>
@@ -344,7 +363,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F8</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -353,13 +372,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f8.png</string>
+ <string key="NSResourceName">key-f8-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="517409546">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{306, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{305, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="858870631"/>
@@ -373,7 +392,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F7</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -382,13 +401,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f7.png</string>
+ <string key="NSResourceName">key-f7-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="58447125">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{258, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{257, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="517409546"/>
@@ -402,7 +421,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F6</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -411,13 +430,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f6.png</string>
+ <string key="NSResourceName">key-f6-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="551855721">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{210, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{209, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="58447125"/>
@@ -431,7 +450,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F5</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -440,13 +459,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f5.png</string>
+ <string key="NSResourceName">key-f5-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="703320925">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{162, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{161, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="551855721"/>
@@ -460,7 +479,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F4</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -469,13 +488,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f4.png</string>
+ <string key="NSResourceName">key-f4-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="885315133">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{114, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{113, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="703320925"/>
@@ -489,7 +508,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F3</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -498,13 +517,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f3.png</string>
+ <string key="NSResourceName">key-f3-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="996814062">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{66, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{65, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="885315133"/>
@@ -518,7 +537,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F2</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -527,13 +546,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f2.png</string>
+ <string key="NSResourceName">key-f2-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="305193239">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{18, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{17, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="996814062"/>
@@ -547,7 +566,7 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
+ <string key="IBUINormalTitle">F1</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
<int key="NSColorSpace">2</int>
@@ -556,13 +575,13 @@
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
<object class="NSCustomResource" key="IBUINormalImage">
<string key="NSClassName">NSImage</string>
- <string key="NSResourceName">f1.png</string>
+ <string key="NSResourceName">key-f1-46x42.png</string>
</object>
</object>
<object class="IBUIButton" id="1057799585">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{834, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{833, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="351566180"/>
@@ -576,7 +595,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">-</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -584,11 +602,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-minus-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="933032107">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{786, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{785, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView" ref="1057799585"/>
@@ -602,11 +624,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
- <double key="IBUIContentEdgeInsets.top">0.0</double>
- <double key="IBUIContentEdgeInsets.bottom">-4</double>
- <double key="IBUIContentEdgeInsets.left">0.0</double>
- <double key="IBUIContentEdgeInsets.right">0.0</double>
<string key="IBUINormalTitle">*</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -614,11 +631,15 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-star-46x42.png</string>
+ </object>
</object>
<object class="IBUIButton" id="208197093">
<reference key="NSNextResponder" ref="795231795"/>
<int key="NSvFlags">297</int>
- <string key="NSFrame">{{978, 3}, {44, 39}}</string>
+ <string key="NSFrame">{{977, 2}, {46, 42}}</string>
<reference key="NSSuperview" ref="795231795"/>
<reference key="NSWindow"/>
<reference key="NSNextKeyView"/>
@@ -632,7 +653,6 @@
<int key="IBUIContentHorizontalAlignment">0</int>
<int key="IBUIContentVerticalAlignment">0</int>
<reference key="IBUIFont" ref="262793430"/>
- <int key="IBUIButtonType">1</int>
<string key="IBUINormalTitle">)</string>
<reference key="IBUIHighlightedTitleColor" ref="107046278"/>
<object class="NSColor" key="IBUINormalTitleColor">
@@ -640,6 +660,10 @@
<bytes key="NSRGB">MC4yMzkyMTU3MDE4IDAuMjM5MjE1NzAxOCAwLjI0MzEzNzI3MDIAA</bytes>
</object>
<reference key="IBUINormalTitleShadowColor" ref="811716299"/>
+ <object class="NSCustomResource" key="IBUINormalImage">
+ <string key="NSClassName">NSImage</string>
+ <string key="NSResourceName">key-rparen-46x42.png</string>
+ </object>
</object>
</object>
<string key="NSFrameSize">{1024, 45}</string>
@@ -1240,6 +1264,8 @@
<string>54.IBPluginDependency</string>
<string>54.IBViewBoundsToFrameTransform</string>
<string>57.IBPluginDependency</string>
+ <string>57.IBUIButtonInspectorSelectedEdgeInsetMetadataKey</string>
+ <string>57.IBUIButtonInspectorSelectedStateConfigurationMetadataKey</string>
<string>57.IBViewBoundsToFrameTransform</string>
<string>60.IBPluginDependency</string>
<string>60.IBViewBoundsToFrameTransform</string>
@@ -1315,6 +1341,8 @@
<bytes key="NSTransformStruct">AUPBAABAQAAAA</bytes>
</object>
<string>com.apple.InterfaceBuilder.IBCocoaTouchPlugin</string>
+ <real value="0.0"/>
+ <real value="0.0"/>
<object class="NSAffineTransform">
<bytes key="NSTransformStruct">AUOpAABAQAAAA</bytes>
</object>
@@ -1616,35 +1644,51 @@
<bool key="EncodedWithXMLCoder">YES</bool>
<object class="NSArray" key="dict.sortedKeys">
<bool key="EncodedWithXMLCoder">YES</bool>
- <string>edit.png</string>
- <string>f1.png</string>
- <string>f10.png</string>
- <string>f11.png</string>
- <string>f2.png</string>
- <string>f3.png</string>
- <string>f4.png</string>
- <string>f5.png</string>
- <string>f6.png</string>
- <string>f7.png</string>
- <string>f8.png</string>
- <string>f9.png</string>
- <string>stop.png</string>
+ <string>key-doublequote-46x42.png</string>
+ <string>key-edit-46x42.png</string>
+ <string>key-f1-46x42.png</string>
+ <string>key-f10-46x42.png</string>
+ <string>key-f11-46x42.png</string>
+ <string>key-f2-46x42.png</string>
+ <string>key-f3-46x42.png</string>
+ <string>key-f4-46x42.png</string>
+ <string>key-f5-46x42.png</string>
+ <string>key-f6-46x42.png</string>
+ <string>key-f7-46x42.png</string>
+ <string>key-f8-46x42.png</string>
+ <string>key-f9-46x42.png</string>
+ <string>key-lparen-46x42.png</string>
+ <string>key-minus-46x42.png</string>
+ <string>key-plus-46x42.png</string>
+ <string>key-quote-46x42.png</string>
+ <string>key-rparen-46x42.png</string>
+ <string>key-sharp-46x42.png</string>
+ <string>key-star-46x42.png</string>
+ <string>key-stop-46x42.png</string>
</object>
<object class="NSMutableArray" key="dict.values">
<bool key="EncodedWithXMLCoder">YES</bool>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
- <string>{29, 29}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
+ <string>{46, 42}</string>
</object>
</object>
<string key="IBCocoaTouchPluginVersion">300</string>
View
BIN examples/iOS/GambitREPL.xcodeproj.tgz
Binary file not shown.
View
4 examples/iOS/Info.plist
@@ -28,13 +28,13 @@
<key>CFBundlePackageType</key>
<string>APPL</string>
<key>CFBundleShortVersionString</key>
- <string>1.0</string>
+ <string>2.0</string>
<key>CFBundleSignature</key>
<string>GamC</string>
<key>CFBundleURLTypes</key>
<array/>
<key>CFBundleVersion</key>
- <string>1.0</string>
+ <string>2.0</string>
<key>LSRequiresIPhoneOS</key>
<true/>
<key>NSMainNibFile</key>
View
341 examples/iOS/MainWindow.xib
@@ -2,16 +2,20 @@
<archive type="com.apple.InterfaceBuilder3.CocoaTouch.iPad.XIB" version="7.10">
<data>
<int key="IBDocument.SystemTarget">1056</int>
- <string key="IBDocument.SystemVersion">10J567</string>
- <string key="IBDocument.InterfaceBuilderVersion">823</string>
- <string key="IBDocument.AppKitVersion">1038.35</string>
- <string key="IBDocument.HIToolboxVersion">462.00</string>
+ <string key="IBDocument.SystemVersion">10K540</string>
+ <string key="IBDocument.InterfaceBuilderVersion">1305</string>
+ <string key="IBDocument.AppKitVersion">1038.36</string>
+ <string key="IBDocument.HIToolboxVersion">461.00</string>
<object class="NSMutableDictionary" key="IBDocument.PluginVersions">
<string key="NS.key.0">com.apple.InterfaceBuilder.IBCocoaTouchPlugin</string>
- <string key="NS.object.0">132</string>
+ <string key="NS.object.0">300</string>
</object>
- <object class="NSMutableArray" key="IBDocument.EditedObjectIDs">
+ <object class="NSArray" key="IBDocument.IntegratedClassDependencies">
<bool key="EncodedWithXMLCoder">YES</bool>
+ <string>IBUICustomObject</string>
+ <string>IBUIWindow</string>
+ <string>IBUIViewController</string>
+ <string>IBProxyObject</string>
</object>
<object class="NSArray" key="IBDocument.PluginDependencies">
<bool key="EncodedWithXMLCoder">YES</bool>
@@ -22,9 +26,7 @@
<object class="NSArray" key="dict.sortedKeys" id="0">
<bool key="EncodedWithXMLCoder">YES</bool>
</object>
- <object class="NSMutableArray" key="dict.values">
- <bool key="EncodedWithXMLCoder">YES</bool>
- </object>
+ <reference key="dict.values" ref="0"/>
</object>
<object class="NSMutableArray" key="IBDocument.RootObjects" id="1000">
<bool key="EncodedWithXMLCoder">YES</bool>
@@ -45,6 +47,7 @@
<int key="IBUIStatusBarStyle">2</int>
</object>
<object class="IBUISimulatedOrientationMetrics" key="IBUISimulatedOrientationMetrics">
+ <int key="IBUIInterfaceOrientation">1</int>
<int key="interfaceOrientation">1</int>
</object>
<string key="targetRuntimeIdentifier">IBIPadFramework</string>
@@ -56,6 +59,7 @@
<string key="NSFrameSize">{768, 1024}</string>
<reference key="NSSuperview"/>
<reference key="NSWindow"/>
+ <reference key="NSNextKeyView"/>
<object class="NSColor" key="IBUIBackgroundColor">
<int key="NSColorSpace">3</int>
<bytes key="NSWhite">MQA</bytes>
@@ -165,17 +169,13 @@
<object class="NSMutableDictionary" key="unlocalizedProperties">
<bool key="EncodedWithXMLCoder">YES</bool>
<reference key="dict.sortedKeys" ref="0"/>
- <object class="NSMutableArray" key="dict.values">
- <bool key="EncodedWithXMLCoder">YES</bool>
- </object>
+ <reference key="dict.values" ref="0"/>
</object>
<nil key="activeLocalization"/>
<object class="NSMutableDictionary" key="localizations">
<bool key="EncodedWithXMLCoder">YES</bool>
<reference key="dict.sortedKeys" ref="0"/>
- <object class="NSMutableArray" key="dict.values">
- <bool key="EncodedWithXMLCoder">YES</bool>
- </object>
+ <reference key="dict.values" ref="0"/>
</object>
<nil key="sourceID"/>
<int key="maxID">28</int>
@@ -220,7 +220,7 @@
</object>
<object class="IBClassDescriptionSource" key="sourceIdentifier">
<string key="majorKey">IBProjectSource</string>
- <string key="minorKey">Classes/AppDelegate.h</string>
+ <string key="minorKey">./Classes/AppDelegate.h</string>
</object>
</object>
<object class="IBPartialClassDescription">
@@ -233,6 +233,19 @@
<string>touch_down:</string>
<string>touch_up_COMMA:</string>
<string>touch_up_DQUOTE:</string>
+ <string>touch_up_F10:</string>
+ <string>touch_up_F11:</string>
+ <string>touch_up_F12:</string>
+ <string>touch_up_F13:</string>
+ <string>touch_up_F1:</string>
+ <string>touch_up_F2:</string>
+ <string>touch_up_F3:</string>
+ <string>touch_up_F4:</string>
+ <string>touch_up_F5:</string>
+ <string>touch_up_F6:</string>
+ <string>touch_up_F7:</string>
+ <string>touch_up_F8:</string>
+ <string>touch_up_F9:</string>
<string>touch_up_LPAREN:</string>
<string>touch_up_MINUS:</string>
<string>touch_up_PLUS:</string>
@@ -255,6 +268,19 @@
<string>id</string>
<string>id</string>
<string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
</object>
</object>
<object class="NSMutableDictionary" key="actionInfosByName">
@@ -264,6 +290,19 @@
<string>touch_down:</string>
<string>touch_up_COMMA:</string>
<string>touch_up_DQUOTE:</string>
+ <string>touch_up_F10:</string>
+ <string>touch_up_F11:</string>
+ <string>touch_up_F12:</string>
+ <string>touch_up_F13:</string>
+ <string>touch_up_F1:</string>
+ <string>touch_up_F2:</string>
+ <string>touch_up_F3:</string>
+ <string>touch_up_F4:</string>
+ <string>touch_up_F5:</string>
+ <string>touch_up_F6:</string>
+ <string>touch_up_F7:</string>
+ <string>touch_up_F8:</string>
+ <string>touch_up_F9:</string>
<string>touch_up_LPAREN:</string>
<string>touch_up_MINUS:</string>
<string>touch_up_PLUS:</string>
@@ -288,6 +327,58 @@
<string key="candidateClassName">id</string>
</object>
<object class="IBActionInfo">
+ <string key="name">touch_up_F10:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F11:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F12:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F13:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F1:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F2:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F3:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F4:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F5:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F6:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F7:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F8:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F9:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
<string key="name">touch_up_LPAREN:</string>
<string key="candidateClassName">id</string>
</object>
@@ -362,220 +453,7 @@
</object>
<object class="IBClassDescriptionSource" key="sourceIdentifier">
<string key="majorKey">IBProjectSource</string>
- <string key="minorKey">Classes/ViewController.h</string>
- </object>
- </object>
- </object>
- <object class="NSMutableArray" key="referencedPartialClassDescriptionsV3.2+">
- <bool key="EncodedWithXMLCoder">YES</bool>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSError.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSFileManager.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSKeyValueCoding.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSKeyValueObserving.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSKeyedArchiver.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSObject.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSRunLoop.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSThread.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSURL.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">Foundation.framework/Headers/NSURLConnection.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIAccessibility.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UINibLoading.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier" id="786211723">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIResponder.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIApplication</string>
- <string key="superclassName">UIResponder</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIApplication.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIResponder</string>
- <string key="superclassName">NSObject</string>
- <reference key="sourceIdentifier" ref="786211723"/>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIScrollView</string>
- <string key="superclassName">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIScrollView.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UISearchBar</string>
- <string key="superclassName">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UISearchBar.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UISearchDisplayController</string>
- <string key="superclassName">NSObject</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UISearchDisplayController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UITextView</string>
- <string key="superclassName">UIScrollView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UITextView.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIPrintFormatter.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UITextField.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIView</string>
- <string key="superclassName">UIResponder</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIView.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIViewController</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UINavigationController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIViewController</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIPopoverController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIViewController</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UISplitViewController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIViewController</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UITabBarController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIViewController</string>
- <string key="superclassName">UIResponder</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIViewController.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIWebView</string>
- <string key="superclassName">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIWebView.h</string>
- </object>
- </object>
- <object class="IBPartialClassDescription">
- <string key="className">UIWindow</string>
- <string key="superclassName">UIView</string>
- <object class="IBClassDescriptionSource" key="sourceIdentifier">
- <string key="majorKey">IBFrameworkSource</string>
- <string key="minorKey">UIKit.framework/Headers/UIWindow.h</string>
+ <string key="minorKey">./Classes/ViewController.h</string>
</object>
</object>
</object>
@@ -591,8 +469,7 @@
<integer value="3100" key="NS.object.0"/>
</object>
<bool key="IBDocument.PluginDeclaredDependenciesTrackSystemTargetVersion">YES</bool>
- <string key="IBDocument.LastKnownRelativeProjectPath">GambitREPL.xcodeproj</string>
<int key="IBDocument.defaultPropertyAccessControl">3</int>
- <string key="IBCocoaTouchPluginVersion">132</string>
+ <string key="IBCocoaTouchPluginVersion">300</string>
</data>
</archive>
View
3 examples/iOS/README
@@ -1,6 +1,7 @@
This program implements the "Gambit REPL" application for iOS devices.
It is a simple development environment for Scheme. The user can
-interact with a REPL, and edit/save/run small scripts.
+interact with a REPL, edit/save/run small scripts, and upload
+scripts to a public script repository.
This example was tested with iOS 4.3 and XCode 4.0 . If you do not have
these versions, some adjustments will be needed at the top of the
View
2 examples/iOS/ViewController.h
@@ -17,7 +17,7 @@ void set_textView_font(NSString *name, int size);
void set_textView_content(NSString *str);
void add_output_to_textView(NSString *str);
void add_input_to_textView(NSString *str);
-void set_webView_content(NSString *str);
+void set_webView_content(NSString *str, BOOL enable_scaling, NSString *mime_type);
void open_URL(NSString *url);
void set_pref(NSString *key, NSString *value);
NSString *get_pref(NSString *key);
View
24 examples/iOS/ViewController.m
@@ -389,15 +389,18 @@ void add_input_to_textView(NSString *str) {
}
-void set_webView_content(NSString *str) {
+void set_webView_content(NSString *str, BOOL enable_scaling, NSString *mime_type) {
ViewController *vc = theViewController;
if (vc != nil)
{
[vc.webView
- loadHTMLString:str
+ loadData:[str dataUsingEncoding:NSUnicodeStringEncoding]
+ MIMEType:mime_type
+ textEncodingName:@"UTF-8"
baseURL:[NSURL fileURLWithPath:[[NSBundle mainBundle] bundlePath]]
];
+ vc.webView.scalesPageToFit = enable_scaling;
}
}
@@ -460,7 +463,9 @@ - (BOOL)textView:(UITextView *)textView2 shouldChangeTextInRange:(NSRange)range
___disable_heartbeat_interrupts ();
- [textView resignFirstResponder];
+#if 0
+ [textView resignFirstResponder]; // Hide the keyboard after "return" key is pressed
+#endif
}
else
add_to_textView(line);
@@ -486,10 +491,15 @@ - (IBAction)touch_down:(id)sender {
if (keyboardSounds != 0)
{
if (keyboardSounds == -1) // delayed check of user preferences?
- keyboardSounds =
- CFPreferencesGetAppBooleanValue(CFSTR("keyboard"),
- CFSTR("/var/mobile/Library/Preferences/com.apple.preferences.sounds"),
- NULL);
+ {
+ Boolean exists_and_valid;
+ keyboardSounds =
+ CFPreferencesGetAppBooleanValue(CFSTR("keyboard"),
+ CFSTR("/var/mobile/Library/Preferences/com.apple.preferences.sounds"),
+ &exists_and_valid);
+ if (!exists_and_valid)
+ keyboardSounds = true; // by default turn on keyboard clicks
+ }
if (keyboardSounds != 0)
AudioServicesPlaySystemSound(1104); // keyboard "tock" sound
View
97 examples/iOS/ViewController.xib
@@ -2,10 +2,10 @@
<archive type="com.apple.InterfaceBuilder3.CocoaTouch.iPad.XIB" version="7.10">
<data>
<int key="IBDocument.SystemTarget">1056</int>
- <string key="IBDocument.SystemVersion">10J567</string>
+ <string key="IBDocument.SystemVersion">10K540</string>
<string key="IBDocument.InterfaceBuilderVersion">1305</string>
- <string key="IBDocument.AppKitVersion">1038.35</string>
- <string key="IBDocument.HIToolboxVersion">462.00</string>
+ <string key="IBDocument.AppKitVersion">1038.36</string>
+ <string key="IBDocument.HIToolboxVersion">461.00</string>
<object class="NSMutableDictionary" key="IBDocument.PluginVersions">
<string key="NS.key.0">com.apple.InterfaceBuilder.IBCocoaTouchPlugin</string>
<string key="NS.object.0">300</string>
@@ -235,6 +235,19 @@
<string>touch_down:</string>
<string>touch_up_COMMA:</string>
<string>touch_up_DQUOTE:</string>
+ <string>touch_up_F10:</string>
+ <string>touch_up_F11:</string>
+ <string>touch_up_F12:</string>
+ <string>touch_up_F13:</string>
+ <string>touch_up_F1:</string>
+ <string>touch_up_F2:</string>
+ <string>touch_up_F3:</string>
+ <string>touch_up_F4:</string>
+ <string>touch_up_F5:</string>
+ <string>touch_up_F6:</string>
+ <string>touch_up_F7:</string>
+ <string>touch_up_F8:</string>
+ <string>touch_up_F9:</string>
<string>touch_up_LPAREN:</string>
<string>touch_up_MINUS:</string>
<string>touch_up_PLUS:</string>
@@ -257,6 +270,19 @@
<string>id</string>
<string>id</string>
<string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
+ <string>id</string>
</object>
</object>
<object class="NSMutableDictionary" key="actionInfosByName">
@@ -266,6 +292,19 @@
<string>touch_down:</string>
<string>touch_up_COMMA:</string>
<string>touch_up_DQUOTE:</string>
+ <string>touch_up_F10:</string>
+ <string>touch_up_F11:</string>
+ <string>touch_up_F12:</string>
+ <string>touch_up_F13:</string>
+ <string>touch_up_F1:</string>
+ <string>touch_up_F2:</string>
+ <string>touch_up_F3:</string>
+ <string>touch_up_F4:</string>
+ <string>touch_up_F5:</string>
+ <string>touch_up_F6:</string>
+ <string>touch_up_F7:</string>
+ <string>touch_up_F8:</string>
+ <string>touch_up_F9:</string>
<string>touch_up_LPAREN:</string>
<string>touch_up_MINUS:</string>
<string>touch_up_PLUS:</string>
@@ -290,6 +329,58 @@
<string key="candidateClassName">id</string>
</object>
<object class="IBActionInfo">
+ <string key="name">touch_up_F10:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F11:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F12:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F13:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F1:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F2:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F3:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F4:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F5:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F6:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F7:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F8:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
+ <string key="name">touch_up_F9:</string>
+ <string key="candidateClassName">id</string>
+ </object>
+ <object class="IBActionInfo">
<string key="name">touch_up_LPAREN:</string>
<string key="candidateClassName">id</string>
</object>
View
BIN examples/iOS/edit.png
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
View
15 examples/iOS/html#.scm
@@ -0,0 +1,15 @@
+;;;============================================================================
+
+;;; File: "html#.scm"
+
+;;; Copyright (c) 2011 by Marc Feeley, All Rights Reserved.
+
+;;;============================================================================
+
+(##namespace ("html#"
+
+html-escape
+
+))
+
+;;;============================================================================
View
331 examples/iOS/html.scm
@@ -0,0 +1,331 @@
+;;;============================================================================
+
+;;; File: "html.scm"
+
+;;; Copyright (c) 2011 by Marc Feeley, All Rights Reserved.
+
+;;;============================================================================
+
+(##namespace ("html#"))
+
+(##include "~~lib/gambit#.scm")
+
+(##include "html#.scm")
+
+(declare
+ (standard-bindings)
+ (extended-bindings)
+ (block)
+ (fixnum)
+ (not safe)
+)
+
+;;;============================================================================
+
+;; Escape text for inclusion in an HTML document.
+
+(define (html-escape str)
+
+ ;; This table has a non-#f entry for every character that is valid
+ ;; in a standard HTML document. The entry is what should be
+ ;; displayed when this character occurs.
+
+ (define character-entity-table
+ '#(#\nul
+ #f; #\x01
+ #f; #\x02
+ #f; #\x03
+ #f; #\x04
+ #f; #\x05
+ #f; #\x06
+ #f; #\alarm
+ #f; #\backspace
+ #\tab
+ #\newline
+ #f; #\vtab
+ #f; #\page
+ #\return
+ #f; #\x0E
+ #f; #\x0F
+ #f; #\x10
+ #f; #\x11
+ #f; #\x12
+ #f; #\x13
+ #f; #\x14
+ #f; #\x15
+ #f; #\x16
+ #f; #\x17
+ #f; #\x18
+ #f; #\x19
+ #f; #\x1A
+ #f; #\x1B
+ #f; #\x1C
+ #f; #\x1D
+ #f; #\x1E
+ #f; #\x1F
+ #\space
+ #\!
+ "&quot;"
+ #\#
+ #\$
+ #\%
+ "&amp;"
+ #\'
+ #\(
+ #\)
+ #\*
+ #\+
+ #\,
+ #\-
+ #\.
+ #\/
+ #\0
+ #\1
+ #\2
+ #\3
+ #\4
+ #\5
+ #\6
+ #\7
+ #\8
+ #\9
+ #\:
+ #\;
+ "&lt;"
+ #\=
+ "&gt;"
+ #\?
+ #\@
+ #\A
+ #\B
+ #\C
+ #\D
+ #\E
+ #\F
+ #\G
+ #\H
+ #\I
+ #\J
+ #\K
+ #\L
+ #\M
+ #\N
+ #\O
+ #\P
+ #\Q
+ #\R
+ #\S
+ #\T
+ #\U
+ #\V
+ #\W
+ #\X
+ #\Y
+ #\Z
+ #\[
+ #\\
+ #\]
+ #\^
+ #\_
+ #\`
+ #\a
+ #\b
+ #\c
+ #\d
+ #\e
+ #\f
+ #\g
+ #\h
+ #\i
+ #\j
+ #\k
+ #\l
+ #\m
+ #\n
+ #\o
+ #\p
+ #\q
+ #\r
+ #\s
+ #\t
+ #\u
+ #\v
+ #\w
+ #\x
+ #\y
+ #\z
+ #\{
+ #\|
+ #\}
+ #\~
+ #f; #\rubout
+ #f; "&#128;"
+ #f; "&#129;"
+ "&#130;"
+ "&#131;"
+ "&#132;"
+ "&#133;"
+ "&#134;"
+ "&#135;"
+ "&#136;"
+ "&#137;"
+ "&#138;"
+ "&#139;"
+ "&#140;"
+ #f; "&#141;"
+ "&#142;"
+ #f; "&#143;"
+ #f; "&#144;"
+ "&#145;"
+ "&#146;"
+ "&#147;"
+ "&#148;"
+ "&#149;"
+ "&#150;"
+ "&#151;"
+ "&#152;"
+ "&#153;"
+ "&#154;"
+ "&#155;"
+ "&#156;"
+ #f; "&#157;"
+ "&#158;"
+ "&#159;"
+ "&#160;"
+ "&#161;"
+ "&#162;"
+ "&#163;"
+ "&#164;"
+ "&#165;"
+ "&#166;"
+ "&#167;"
+ "&#168;"
+ "&#169;"
+ "&#170;"
+ "&#171;"
+ "&#172;"
+ "&#173;"
+ "&#174;"
+ "&#175;"
+ "&#176;"
+ "&#177;"
+ "&#178;"
+ "&#179;"
+ "&#180;"
+ "&#181;"
+ "&#182;"
+ "&#183;"
+ "&#184;"
+ "&#185;"
+ "&#186;"
+ "&#187;"
+ "&#188;"
+ "&#189;"
+ "&#190;"
+ "&#191;"
+ "&#192;"
+ "&#193;"
+ "&#194;"
+ "&#195;"
+ "&#196;"
+ "&#197;"
+ "&#198;"
+ "&#199;"
+ "&#200;"
+ "&#201;"
+ "&#202;"
+ "&#203;"
+ "&#204;"
+ "&#205;"
+ "&#206;"
+ "&#207;"
+ "&#208;"
+ "&#209;"
+ "&#210;"
+ "&#211;"
+ "&#212;"
+ "&#213;"
+ "&#214;"
+ "&#215;"
+ "&#216;"
+ "&#217;"
+ "&#218;"
+ "&#219;"
+ "&#220;"
+ "&#221;"
+ "&#222;"
+ "&#223;"
+ "&#224;"
+ "&#225;"
+ "&#226;"
+ "&#227;"
+ "&#228;"
+ "&#229;"
+ "&#230;"
+ "&#231;"
+ "&#232;"
+ "&#233;"
+ "&#234;"
+ "&#235;"
+ "&#236;"
+ "&#237;"
+ "&#238;"
+ "&#239;"
+ "&#240;"
+ "&#241;"
+ "&#242;"
+ "&#243;"
+ "&#244;"
+ "&#245;"
+ "&#246;"
+ "&#247;"
+ "&#248;"
+ "&#249;"
+ "&#250;"
+ "&#251;"
+ "&#252;"
+ "&#253;"
+ "&#254;"
+ "&#255;"
+ ))
+
+(if (not (string? str))
+(object->string str)
+ (call-with-output-string
+ ""
+ (lambda (port)
+ (let ((n (string-length str)))
+ (let loop ((start 0) (end 0))
+ (if (= end n)
+ (write-substring str start end port)
+ (let* ((ch (string-ref str end))
+ (index (char->integer ch)))
+ (cond ((and (< index 256)
+ (vector-ref character-entity-table index))
+ =>
+ (lambda (character-value)
+ (if (char? character-value)
+ (loop start (+ end 1))
+ (begin ;; it's a string
+ (write-substring
+ str
+ start
+ end
+ port)
+ (write-substring
+ character-value
+ 0
+ (string-length character-value)
+ port)
+ (loop (+ end 1) (+ end 1))))))
+ (else
+ (display
+ (string-append
+ "Warning: Character (integer->char "
+ (number->string index)
+ ") is not a valid HTML 4.0 character entity\n")
+ (current-error-port))
+ (loop start (+ end 1)))))))))))
+)
+
+;;;============================================================================
View
17 examples/iOS/json#.scm
@@ -0,0 +1,17 @@
+;;;============================================================================
+
+;;; File: "json#.scm"
+
+;;; Copyright (c) 2011 by Marc Feeley, All Rights Reserved.
+
+;;;============================================================================
+
+(##namespace ("json#"
+
+json-read
+json-error
+json-error?
+
+))
+
+;;;============================================================================
View
269 examples/iOS/json.scm
@@ -0,0 +1,269 @@
+;;;============================================================================
+
+;;; File: "json.scm"
+
+;;; Copyright (c) 2011 by Marc Feeley, All Rights Reserved.
+
+;;;============================================================================
+
+(##namespace ("json#"))
+
+(##include "~~lib/gambit#.scm")
+
+(##include "json#.scm")
+
+(declare
+ (standard-bindings)
+ (extended-bindings)
+ (block)
+ (fixnum)
+ (not safe)
+)
+
+;;;============================================================================
+
+(define (json-read port)
+
+ (define (create-object props)
+ (list->table props))
+
+ (define (create-array elements)
+ (list->vector elements))
+
+ (define (rd)
+ (read-char port))
+
+ (define (pk)
+ (peek-char port))
+
+ (define (accum c i str)
+ (if (not (json-error? str))
+ (string-set! str i c))
+ str)
+
+ (define (digit? c radix)
+ (and (char? c)
+ (let ((n
+ (cond ((and (char>=? c #\0) (char<=? c #\9))
+ (- (char->integer c) (char->integer #\0)))
+ ((and (char>=? c #\a) (char<=? c #\Z))
+ (+ 10 (- (char->integer c) (char->integer #\a))))
+ ((and (char>=? c #\A) (char<=? c #\Z))
+ (+ 10 (- (char->integer c) (char->integer #\A))))
+ (else
+ 999))))
+ (and (< n radix)
+ n))))
+
+ (define (space)
+ (let ((c (pk)))
+ (if (and (char? c)
+ (char<=? c #\space))
+ (begin (rd) (space)))))
+
+ (define (parse-value)
+ (space)
+ (let ((c (pk)))
+ (if (not (char? c))
+ json-error
+ (cond ((eqv? c #\{)
+ (parse-object))
+ ((eqv? c #\[)
+ (parse-array))
+ ((eqv? c #\")
+ (parse-string))
+ ((or (eqv? c #\-) (digit? c 10))
+ (parse-number))
+ ((eqv? c #\f)
+ (rd)
+ (if (not (and (eqv? (rd) #\a)
+ (eqv? (rd) #\l)
+ (eqv? (rd) #\s)
+ (eqv? (rd) #\e)))
+ json-error
+ #f))
+ ((eqv? c #\t)
+ (rd)
+ (if (not (and (eqv? (rd) #\r)
+ (eqv? (rd) #\u)
+ (eqv? (rd) #\e)))
+ json-error
+ #t))
+ ((eqv? c #\n)
+ (rd)
+ (if (not (and (eqv? (rd) #\u)
+ (eqv? (rd) #\l)
+ (eqv? (rd) #\l)))
+ json-error
+ '()))
+ (else
+ json-error)))))
+
+ (define (parse-object)
+ (rd)