Parsing Stack Dump

Author: lupyuen

.vscode/tasks.json

@@ -0,0 +1,22 @@
+{
+    // See https://go.microsoft.com/fwlink/?LinkId=733558
+    // for the documentation about the tasks.json format
+    "version": "2.0.0",
+    "tasks": [
+        {
+            "label": "Build",
+            "type": "shell",
+
+            "command": "./run.sh",
+
+            "problemMatcher": "$gcc",
+            "group": {
+                "kind": "build",
+                "isDefault": true
+            },
+            "presentation": {
+                "clear": true
+            }
+        }
+    ]
+}

README.md

@@ -202,6 +202,14 @@ Let's parse the [NuttX Stack Dump](https://gist.github.com/lupyuen/a715e4e77c011
 
 TODO: Spot interesting addresses like 8000ad8a, c0202010
 
+Let's try this...
+
+```text
+[    6.242000] stack_dump: 0xc02027e0: c0202010 00000000 00000001 00000000 00000000 00000000 8000ad8a 00000000
+```
+
+
+
 # Compile PureScript to JavaScript in Web Browser
 
 Here's how we compile PureScript to JavaScript inside our Web Browser...

run.sh

@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+set -e  #  Exit when any command fails
+set -x  #  Echo commands
+
+spago run

src/Main.purs

@@ -20,20 +20,69 @@ printResults :: Effect Unit
 printResults = do
   log "" -- empty blank line to separate output from function call
 
-  log "### Example Content 1 ###"
-  doBoth "fail" ((fail "example failure message") :: Parser Unit) exampleContent1
-  doBoth "numberOfAs" numberOfAs exampleContent1
-  doBoth "removePunctuation" removePunctuation exampleContent1
-  doBoth "replaceVowelsWithUnderscore" replaceVowelsWithUnderscore exampleContent1
-  doBoth "tokenizeContentBySpaceChars" tokenizeContentBySpaceChars exampleContent1
-  doBoth "extractWords" extractWords exampleContent1
-  doBoth "badExtractWords" badExtractWords exampleContent1
-  doBoth "quotedLetterExists" quotedLetterExists exampleContent1
-
-  log
-    "\n\
-    \### Example Content 2 ###"
-  doBoth "parseCSV" parseCSV exampleContent2
+  -- Parse the NuttX Stack Dump
+  doRunParser "parseStackDump" parseStackDump "[    6.242000] stack_dump: 0xc02027e0: c0202010 00000000 00000001 00000000 00000000 00000000 8000ad8a 00000000"
+
+  -- log "### Example Content 1 ###"
+  -- doBoth "fail" ((fail "example failure message") :: Parser Unit) exampleContent1
+  -- doBoth "numberOfAs" numberOfAs exampleContent1
+  -- doBoth "removePunctuation" removePunctuation exampleContent1
+  -- doBoth "replaceVowelsWithUnderscore" replaceVowelsWithUnderscore exampleContent1
+  -- doBoth "tokenizeContentBySpaceChars" tokenizeContentBySpaceChars exampleContent1
+  -- doBoth "extractWords" extractWords exampleContent1
+  -- doBoth "badExtractWords" badExtractWords exampleContent1
+  -- doBoth "quotedLetterExists" quotedLetterExists exampleContent1
+
+  -- log
+  --   "\n\
+  --   \### Example Content 2 ###"
+  -- doBoth "parseCSV" parseCSV exampleContent2
+
+-- parseStackDump :: Parser CsvContent
+parseStackDump = do
+  let
+    commaThenSpaces = string "," *> skipSpaces
+    csvColumn = regex "[^,]+"
+
+  -- now we're on line 2
+  idNumber <- csvColumn
+  -- idNumber <- csvColumn <* commaThenSpaces
+  -- firstName <- csvColumn <* commaThenSpaces
+  -- lastName <- csvColumn <* commaThenSpaces
+  -- age <- csvColumn <* commaThenSpaces
+
+  -- lookAhead will parse the content ahead of us,
+  -- then reset the position of the string
+  -- to what it was before it.
+  -- originalEmail <- lookAhead $ regex "[^\n]+"
+
+  -- let
+  --   parseAlphanumericChars = regex "[a-zA-Z0-9]+"
+  --   parsePeriodsAndPlusesAsEmptyStrings =
+  --     "" <$ ((string ".") <|> (string "+"))
+  --   parseListOfParts =
+  --     many1
+  --       ( parseAlphanumericChars
+  --           <|> parsePeriodsAndPlusesAsEmptyStrings
+  --       )
+
+  -- usernameWithoutPeriodsOrPluses <- fold <$> parseListOfParts
+  -- void $ string "@"
+  -- domainName <- fold <$> (many1 ((regex "[a-zA-Z0-9]+") <|> (string ".")))
+  -- void $ string "\n"
+
+  -- -- Ensure we hit the end of the string content via 'end-of-file'
+  -- void eof
+
+  -- now return the parsed content
+  pure
+    { idNumber
+    -- , firstName
+    -- , lastName
+    -- , age
+    -- , originalEmail
+    -- , modifiedEmail: usernameWithoutPeriodsOrPluses <> "@" <> domainName
+    }
 
 -- Example Content 1