aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/App.module.css12
-rw-r--r--src/App.tsx38
-rw-r--r--src/Editor.module.css7
-rw-r--r--src/Editor.tsx68
-rw-r--r--src/Tutorial.tsx37
-rw-r--r--src/api.ts43
-rw-r--r--src/index.css20
7 files changed, 198 insertions, 27 deletions
diff --git a/src/App.module.css b/src/App.module.css
index 0bf5f42..3b75e8c 100644
--- a/src/App.module.css
+++ b/src/App.module.css
@@ -32,4 +32,14 @@
.error {
color: var(--red)
-} \ No newline at end of file
+}
+
+.examples {
+ margin-bottom: 20px;
+}
+
+.editor {
+ margin-bottom: 40px;
+}
+
+.tutorial {}
diff --git a/src/App.tsx b/src/App.tsx
index 5645dcc..905149e 100644
--- a/src/App.tsx
+++ b/src/App.tsx
@@ -1,24 +1,26 @@
-import { useSnippets } from "./api"
+import { useExamples } from "./api"
import styles from "./App.module.css"
+import Editor from "./Editor"
+import Tutorial from "./Tutorial"
import icon from "./favicon.png"
const App = () => {
- const snippets = useSnippets()
+ const examples = useExamples()
- const renderSnippets = () => {
- if (snippets.type === "failed") {
- return <div className={styles.error}>
- Unexpected error loading snippets. See console for details.
- </div>
- }
-
- if (snippets.type === "loading") {
- return <div>Loading snippets...</div>
+ const renderExamples = () => {
+ switch (examples.type) {
+ case "not_yet_requested":
+ case "loading":
+ return <div>Loading examples...</div>
+ case "failed":
+ return <div className={styles.error}>
+ An unexpected error occurred while loading examples. See console for details.
+ </div>
+ case "success":
+ return examples.data.map((example) =>
+ <div key={example.id}>{example.title}</div>,
+ )
}
-
- return snippets.data.map((snippet) =>
- <div key={snippet.id}>{snippet.title}</div>,
- )
}
return (
@@ -32,9 +34,11 @@ const App = () => {
<small>A Mere Stack Language</small>
</div>
</header>
- <div>
- {renderSnippets()}
+ <div className={styles.examples}>
+ {renderExamples()}
</div>
+ <div className={styles.editor}><Editor /></div>
+ <div className={styles.tutorial}><Tutorial /></div>
</div>
)
}
diff --git a/src/Editor.module.css b/src/Editor.module.css
new file mode 100644
index 0000000..2116903
--- /dev/null
+++ b/src/Editor.module.css
@@ -0,0 +1,7 @@
+.runButton {
+ margin-top: 10px;
+}
+
+.error {
+ color: var(--red)
+}
diff --git a/src/Editor.tsx b/src/Editor.tsx
new file mode 100644
index 0000000..d179b83
--- /dev/null
+++ b/src/Editor.tsx
@@ -0,0 +1,68 @@
+import AceEditor from "react-ace"
+import "ace-builds/src-noconflict/mode-java"
+import "ace-builds/src-noconflict/theme-github"
+import { useState } from "react"
+import styles from "./Editor.module.css"
+import { APIResult, submitSource } from "./api"
+
+const Editor = () => {
+ const [sourceText, setSourceText] = useState("")
+ const [result, setResult] = useState<APIResult<string, Error>>({ type: "not_yet_requested" })
+ const onChange = setSourceText
+
+ const executeCode = async (text: string) => {
+ const result = await submitSource(text)
+ setResult(result)
+ }
+
+ const renderResults = () => {
+ switch (result.type) {
+ case "not_yet_requested":
+ case "loading":
+ return null
+ case "failed":
+ return (
+ <div className={styles.error}>
+ Failed to run code on the server. See console for details.
+ </div>
+ )
+ case "success":
+ return (
+ <AceEditor
+ mode=""
+ theme="github"
+ onChange={() => undefined}
+ value={result.data}
+ name="results"
+ editorProps={{ $blockScrolling: true }}
+ width="100%"
+ fontSize={16}
+ readOnly
+ />
+ )
+ }
+ }
+
+ return (
+ <>
+ <AceEditor
+ mode=""
+ theme="github"
+ onChange={onChange}
+ value={sourceText}
+ name="editor"
+ editorProps={{ $blockScrolling: true }}
+ width="100%"
+ fontSize={16}
+ />
+ <button className={styles.runButton} onClick={() => executeCode(sourceText)}>
+ ▶️ Run code on server
+ </button>
+ <div className={styles.results}>
+ {renderResults()}
+ </div>
+ </>
+ )
+}
+
+export default Editor
diff --git a/src/Tutorial.tsx b/src/Tutorial.tsx
new file mode 100644
index 0000000..917142b
--- /dev/null
+++ b/src/Tutorial.tsx
@@ -0,0 +1,37 @@
+import { useState } from "react"
+
+const Tutorial = () => {
+ const [collapsed, setCollapsed] = useState(true)
+
+ if (collapsed) {
+ return <button onClick={() => setCollapsed(false)}>SLAM tutorial ▼</button>
+ }
+
+ return (
+ <>
+ <button onClick={() => setCollapsed(true)}>SLAM tutorial ▲</button>
+
+ <h3>
+ <strong>SLAM</strong> is a procedural, stack-based programming language
+ inspired by Forth and Lisp.
+ </h3>
+
+ <p>
+ In the core of every SLAM program, there is an implied, global stack of
+ strongly and dynamically typed values. A SLAM program consists of a sequence
+ of <i>words</i> that when evaluated, can consume and produce values from/to
+ the stack.
+ </p>
+
+ <p>
+ <i>Phrases</i>, roughly equal to Lisp&apos;s quoted S-expressions, are a sequence
+ of words that are not immediately evaluated when encountered, but instead put on the stack for later
+ manipulation. Phrases can be used to implement strings or homogenous list structures. Phrases
+ are also the core of conditional expressions, where branches of code are only evaluated
+ when a condition is met.
+ </p>
+ </>
+ )
+}
+
+export default Tutorial \ No newline at end of file
diff --git a/src/api.ts b/src/api.ts
index 7fd9e64..725f0d8 100644
--- a/src/api.ts
+++ b/src/api.ts
@@ -10,27 +10,31 @@ const fetcher = (path: string) => fetch(`${API_URL}${path}`)
throw err
})
-interface Snippet {
+interface Example {
id: string
title: string
content: string
}
-interface APISuccess<D> {
+export interface APISuccess<D> {
readonly type: "success"
data: D
}
-interface APILoading {
+export interface APILoading {
readonly type: "loading"
}
-interface APIFailed<E> {
+export interface APIFailed<E> {
readonly type: "failed"
error: E
}
-type APIResult<D, E> = APISuccess<D> | APILoading | APIFailed<E>
+export interface APINotYetRequested {
+ readonly type: "not_yet_requested"
+}
+
+export type APIResult<D, E> = APISuccess<D> | APILoading | APIFailed<E> | APINotYetRequested
const mapSWRResult = <D, E>({ data, error }: SWRResponse<D, E>): APIResult<D, E> => {
if (error !== undefined) {
@@ -45,6 +49,31 @@ const mapSWRResult = <D, E>({ data, error }: SWRResponse<D, E>): APIResult<D, E>
return { type: "success", data }
}
-export const useSnippets = () => mapSWRResult<Snippet[], Error>(
- useSWR("/snippets", fetcher),
+const postRequest = async <D, E>(path: string, body: any, opts?: any): Promise<APIResult<D, E>> => {
+ const url = `${API_URL}${path}`
+ const body_ = typeof body === "string" ? body : JSON.stringify(body)
+ try {
+ const resp = await fetch(url, { method: "POST", body: body_, headers: {
+ "Content-Type": "application/json",
+ }, ...opts })
+
+ if (resp.status >= 400) {
+ throw new Error(`${url} responded with ${resp.status}: ${resp.text}`)
+ }
+ const data = await resp.json()
+ return { type: "success", data }
+ } catch (err: any) {
+ console.error(`An error occurred when POSTing to API path ${path}`)
+ console.error(err)
+ return { type: "failed", error: err }
+ }
+}
+
+export const useExamples = () => mapSWRResult<Example[], Error>(
+ useSWR("/examples", fetcher),
+)
+
+export const submitSource = async (text: string) => postRequest<string, Error>(
+ "/submit",
+ text,
)
diff --git a/src/index.css b/src/index.css
index 910f8af..6f181ab 100644
--- a/src/index.css
+++ b/src/index.css
@@ -23,8 +23,24 @@ body {
padding: 0 10px;
max-width: 900px;
text-align: left;
+ font-size: var(--font-s);
}
-code {
- font-family: source-code-pro, Menlo, Monaco, Consolas, 'Courier New', monospace;
+button {
+ border-radius: 0;
+ border: none;
+ outline: none;
+ padding: 5px;
+ margin: 0 -5px;
+ background: var(--dark-grey);
+ color: var(--white);
+ font-size: var(--font-s);
+ cursor: pointer;
+ display: flex;
+ flex-flow: row nowrap;
+ align-items: center;
+}
+
+button:hover {
+ text-decoration: underline;
} \ No newline at end of file