making universal NAME function

zss/device.ts

@@ -1,6 +1,7 @@
 import { MESSAGE } from './chip'
 import { hub } from './hub'
 import { createsid } from './mapping/guid'
+import { NAME } from './words/types'
 
 export function createmessage(
   target: string,
@@ -33,8 +34,8 @@ export function createdevice(
   onMessage: MESSAGE_FUNC,
 ) {
   const id = createsid()
-  const iname = name.toLowerCase()
-  const itopics = topics.map((tag) => tag.toLowerCase())
+  const iname = NAME(name)
+  const itopics = topics.map(NAME)
 
   const device: DEVICE = {
     id() {
@@ -54,7 +55,7 @@ export function createdevice(
     },
     handle(message) {
       const { target, path } = parsetarget(message.target)
-      const itarget = target.toLowerCase()
+      const itarget = NAME(target)
 
       // we match by topics
       if (itopics.findIndex((tag) => tag === 'all' || tag === itarget) !== -1) {

zss/device/synth.ts

@@ -28,6 +28,7 @@ import {
   SYNTH_NOTE_ON,
 } from 'zss/mapping/play'
 import { isarray, isnumber, ispresent, isstring } from 'zss/mapping/types'
+import { NAME } from 'zss/words/types'
 
 import { api_error, tape_info } from './api'
 
@@ -585,7 +586,7 @@ function validatesynthtype(
   maybepartials: string | number | number[],
 ) {
   if (isstring(value)) {
-    const maybetype = value.toLowerCase()
+    const maybetype = NAME(value)
     let type = maybetype
 
     // validate partials

zss/firmware/audio.ts

@@ -3,7 +3,7 @@ import { synth_play, synth_voice, synth_voicefx } from 'zss/device/api'
 import { createfirmware } from 'zss/firmware'
 import { isnumber, isstring } from 'zss/mapping/types'
 import { ARG_TYPE, readargs } from 'zss/words/reader'
-import { WORD } from 'zss/words/types'
+import { NAME, WORD } from 'zss/words/types'
 
 const isfx = ['echo', 'reverb', 'chorus', 'phaser', 'distortion', 'vibrato']
 
@@ -20,7 +20,7 @@ function handlesynthvoice(idx: number, words: WORD[]) {
   const [voiceorfx] = readargs(words, 0, [ARG_TYPE.NUMBER_OR_STRING])
   if (isnumber(voiceorfx)) {
     synth_voice('audio', idx, 'volume', voiceorfx)
-  } else if (isfx.includes(voiceorfx.toLowerCase())) {
+  } else if (isfx.includes(NAME(voiceorfx))) {
     const [maybeconfig, maybevalue] = readargs(words, 1, [
       ARG_TYPE.NUMBER_OR_STRING,
       ARG_TYPE.MAYBE_NUMBER_OR_STRING,

zss/firmware/cli.ts

@@ -30,7 +30,7 @@ import { CODE_PAGE, CODE_PAGE_TYPE } from 'zss/memory/types'
 import { ARG_TYPE, READ_CONTEXT, readargs } from 'zss/words/reader'
 import { stattypestring } from 'zss/words/stats'
 import { metakey } from 'zss/words/system'
-import { STAT_TYPE } from 'zss/words/types'
+import { NAME, STAT_TYPE } from 'zss/words/types'
 import {
   bg,
   fg,
@@ -179,7 +179,7 @@ export const CLI_FIRMWARE = createfirmware({
     const [maybetype, ...args] = words.map(maptostring)
     const maybename = args.join(' ')
     // attempt to check first word as codepage type to create
-    switch (maybetype.toLowerCase()) {
+    switch (NAME(maybetype)) {
       case stattypestring(STAT_TYPE.LOADER):
         codepage = memoryensuresoftwarecodepage(
           MEMORY_LABEL.CONTENT,
@@ -190,7 +190,7 @@ export const CLI_FIRMWARE = createfirmware({
       default:
         codepage = memoryensuresoftwarecodepage(
           MEMORY_LABEL.CONTENT,
-          `${maybetype} ${maybename}`,
+          [maybetype, ...args].join(' '),
           CODE_PAGE_TYPE.OBJECT,
         )
         break

zss/firmware/gadget.ts

@@ -16,7 +16,7 @@ import { bookelementdisplayread } from 'zss/memory/book'
 import { BOARD_ELEMENT } from 'zss/memory/types'
 import { ARG_TYPE, READ_CONTEXT, readargs } from 'zss/words/reader'
 import { statformat } from 'zss/words/stats'
-import { COLOR, STAT_TYPE } from 'zss/words/types'
+import { COLOR, NAME, STAT_TYPE } from 'zss/words/types'
 
 export const GADGET_FIRMWARE = createfirmware({
   get() {
@@ -75,7 +75,7 @@ export const GADGET_FIRMWARE = createfirmware({
     }
 
     // the intent here is to gather a list of target chip ids
-    const ltarget = target.toLowerCase()
+    const ltarget = NAME(target)
     switch (ltarget) {
       case 'all':
         for (const id of Object.keys(READ_CONTEXT.board?.objects ?? {})) {
@@ -140,7 +140,7 @@ export const GADGET_FIRMWARE = createfirmware({
   // ---
   .command('gadget', (_, words) => {
     const [edge] = readargs(words, 0, [ARG_TYPE.STRING])
-    const edgeConst = PANEL_TYPE_MAP[edge.toLowerCase()]
+    const edgeConst = PANEL_TYPE_MAP[NAME(edge)]
     if (edgeConst === PANEL_TYPE.SCROLL) {
       const [, name, size] = readargs(words, 0, [
         ARG_TYPE.STRING,

zss/firmware/loader.ts

@@ -9,6 +9,7 @@ import {
   memoryreadbinaryfile,
 } from 'zss/memory'
 import { ARG_TYPE, readargs } from 'zss/words/reader'
+import { NAME } from 'zss/words/types'
 
 import { binaryloader } from './loader/binaryloader'
 
@@ -18,7 +19,7 @@ export const LOADER_FIRMWARE = createfirmware({
 
     const binaryfile = memoryreadbinaryfile(chip.id())
     if (ispresent(binaryfile)) {
-      switch (name.toLowerCase()) {
+      switch (NAME(name)) {
         case 'filename':
           // name of binary file
           return [ispresent(binaryfile.filename), binaryfile.filename]

zss/firmware/loader/binaryloader.ts

@@ -1,15 +1,16 @@
 import { FIRMWARE_COMMAND } from 'zss/firmware'
-import { isnumber, ispresent, isstring, MAYBE_NUMBER } from 'zss/mapping/types'
+import { isnumber, ispresent, isstring, MAYBE } from 'zss/mapping/types'
 import { memoryreadbinaryfile } from 'zss/memory'
 import { BINARY_READER } from 'zss/memory/types'
 import { ARG_TYPE, readargs } from 'zss/words/reader'
+import { NAME } from 'zss/words/types'
 
-function readbin(binaryfile: BINARY_READER, kind: string): MAYBE_NUMBER {
+function readbin(binaryfile: BINARY_READER, kind: string): MAYBE<number> {
   if (!ispresent(binaryfile)) {
     return undefined
   }
 
-  const lkind = kind.toLowerCase()
+  const lkind = NAME(kind)
   const le = lkind.endsWith('le')
   switch (lkind) {
     case 'float32':
@@ -83,7 +84,7 @@ export const binaryloader: FIRMWARE_COMMAND = (chip, words) => {
   }
   const [kind] = readargs(words, 0, [ARG_TYPE.STRING])
 
-  const lkind = kind.toLowerCase()
+  const lkind = NAME(kind)
   switch (lkind) {
     case 'seek': {
       const [cursor] = readargs(words, 1, [ARG_TYPE.NUMBER])

zss/firmware/loader/parsefile.ts

@@ -14,6 +14,7 @@ import {
   codepagereadtypetostring,
   createcodepage,
 } from 'zss/memory/codepage'
+import { NAME } from 'zss/words/types'
 
 export function mimetypeofbytesread(filename: string, filebytes: Uint8Array) {
   const bytes = [...filebytes.slice(0, 4)]
@@ -106,8 +107,8 @@ export async function parsebinaryfile(
   try {
     tape_info('parsebinaryfile', file.name)
     const arraybuffer = await file.arrayBuffer()
-    const ext = file.name.split('.').slice(-1)[0]
-    onbuffer((ext ?? '').toLowerCase(), new Uint8Array(arraybuffer))
+    const ext = file.name.split('.').slice(-1)[0] ?? ''
+    onbuffer(NAME(ext), new Uint8Array(arraybuffer))
   } catch (err: any) {
     api_error('memory', 'crash', err.message)
   }

zss/gadget/components/panel/number.tsx

@@ -2,6 +2,7 @@ import { useCallback, useState } from 'react'
 import { modemwritevaluenumber, useWaitForValueNumber } from 'zss/device/modem'
 import { paneladdress } from 'zss/gadget/data/types'
 import { tokenizeandwritetextformat } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import { useBlink } from '../hooks'
 import {
@@ -132,7 +133,7 @@ export function PanelItemNumber({
               CANCEL_BUTTON={ok}
               OK_BUTTON={ok}
               keydown={(event) => {
-                switch (event.key.toLowerCase()) {
+                switch (NAME(event.key)) {
                   case 'delete':
                     if (strvalue.length > 0) {
                       setstrValue((state) => strsplice(state, cursor, 1))

zss/gadget/components/panel/panelitem.tsx

@@ -3,6 +3,7 @@ import { useGadgetClientPlayer } from 'zss/gadget/data/state'
 import { PANEL_ITEM } from 'zss/gadget/data/types'
 import { isarray } from 'zss/mapping/types'
 import { writetextreset } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import { PanelItemContent } from './content'
 import { PanelItemHotkey } from './hotkey'
@@ -45,7 +46,7 @@ export function PanelItem({ item, active }: PanelItemProps) {
       context,
     }
 
-    switch (input.toLowerCase()) {
+    switch (NAME(input)) {
       case 'hk':
       case 'hotkey':
         return <PanelItemHotkey {...props} />

zss/gadget/components/panel/text.tsx

@@ -9,6 +9,7 @@ import {
   applycolortoindexes,
   applystrtoindex,
 } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import { useBlink } from '../hooks'
 import { UserFocus, UserInput, UserInputMods } from '../userinput'
@@ -126,7 +127,7 @@ export function PanelItemText({
               }
 
               const { key } = event
-              const lkey = key.toLowerCase()
+              const lkey = NAME(key)
               const mods: UserInputMods = {
                 alt: event.altKey,
                 ctrl: ismac ? event.metaKey : event.ctrlKey,

zss/gadget/components/tape/elements/editorinput.tsx

@@ -10,7 +10,7 @@ import { useTapeEditor } from 'zss/gadget/data/state'
 import { clamp } from 'zss/mapping/number'
 import { MAYBE, ispresent } from 'zss/mapping/types'
 import { applystrtoindex, textformatreadedges } from 'zss/words/textformat'
-import { PT } from 'zss/words/types'
+import { NAME, PT } from 'zss/words/types'
 
 import { useBlink, useWriteText } from '../../hooks'
 import { Scrollable } from '../../scrollable'
@@ -165,7 +165,7 @@ export function EditorInput({
           }
 
           const { key } = event
-          const lkey = key.toLowerCase()
+          const lkey = NAME(key)
           const mods = modsfromevent(event)
 
           switch (lkey) {

zss/gadget/components/tape/elements/terminalinput.tsx

@@ -16,6 +16,7 @@ import {
   textformatreadedges,
   tokenizeandwritetextformat,
 } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import { useBlink, useWriteText } from '../../hooks'
 import { setuplogitem } from '../common'
@@ -208,7 +209,7 @@ export function TerminalInput({
       <UserInput
         keydown={(event) => {
           const { key } = event
-          const lkey = key.toLowerCase()
+          const lkey = NAME(key)
           const mods = modsfromevent(event)
           switch (lkey) {
             case 'arrowleft':

zss/gadget/components/tape/elements/terminalitem.tsx

@@ -5,6 +5,7 @@ import {
   tokenize,
   tokenizeandwritetextformat,
 } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import {
   TerminalItemInputProps,
@@ -58,7 +59,7 @@ export function TerminalItem({ blink, active, text, y }: TerminalItemProps) {
     }
 
     // render hyperlink
-    switch (input.toLowerCase()) {
+    switch (NAME(input)) {
       case 'hk':
       case 'hotkey':
         return null

zss/gadget/components/userinput.tsx

@@ -13,6 +13,7 @@ import { vm_cli } from 'zss/device/api'
 import { getgadgetclientplayer } from 'zss/gadget/data/state'
 import { INPUT } from 'zss/gadget/data/types'
 import { ismac } from 'zss/words/system'
+import { NAME } from 'zss/words/types'
 
 // user input
 
@@ -92,7 +93,7 @@ function invoke(input: INPUT, mods: UserInputMods) {
 document.addEventListener(
   'keydown',
   (event) => {
-    const key = event.key.toLowerCase()
+    const key = NAME(event.key)
     const mods = modsfromevent(event)
 
     // allowed shortcuts, all others we attempt to block
@@ -195,7 +196,7 @@ document.addEventListener(
 document.addEventListener(
   'keyup',
   (event) => {
-    const key = event.key.toLowerCase()
+    const key = NAME(event.key)
     const mods = modsfromevent(event)
 
     if (mods.alt) {

zss/gadget/data/api.ts

@@ -10,7 +10,7 @@ import {
 } from 'zss/device/modem'
 import { createsid } from 'zss/mapping/guid'
 import { ispresent, isnumber, isstring, MAYBE } from 'zss/mapping/types'
-import { WORD } from 'zss/words/types'
+import { NAME, WORD } from 'zss/words/types'
 
 import {
   GADGET_STATE,
@@ -253,7 +253,7 @@ export function gadgethyperlink(
   }
 
   // package into a panel item
-  const linput = input.toLowerCase()
+  const linput = NAME(input)
 
   const hyperlink: WORD[] = [
     chip.id(),

zss/lang/transformer.ts

@@ -1,6 +1,7 @@
 import { CodeWithSourceMap, SourceNode } from 'source-map'
 import { deepcopy, ispresent, MAYBE } from 'zss/mapping/types'
 import { tokenize, MaybeFlag } from 'zss/words/textformat'
+import { NAME } from 'zss/words/types'
 
 import { COMPARE, CodeNode, LITERAL, NODE, OPERATOR } from './visitor'
 
@@ -281,15 +282,15 @@ function transformNode(ast: CodeNode): SourceNode {
       }
       return write(ast, `  // skipped ${ast.value}\n`)
     case NODE.LABEL: {
-      const llabel = ast.name.toLowerCase()
+      const llabel = NAME(ast.name)
       const ltype = ast.active ? 'label' : 'comment'
       if (!context.labels[llabel]) {
         context.labels[llabel] = []
       }
       const lindex = (ast.active ? 1 : -1) * ast.lineindex
       context.labels[llabel].push(lindex)
       // document label
-      return write(ast, `  // ${lindex} ${ast.name} ${ltype}\n`)
+      return write(ast, `  // ${lindex} '${llabel}' ${ltype}\n`)
     }
     case NODE.HYPERLINK:
       return write(ast, [

zss/memory/atomics.ts

@@ -1,13 +1,12 @@
 import { MAYBE, ispresent } from 'zss/mapping/types'
-import { COLLISION } from 'zss/words/types'
 import { ispt } from 'zss/words/dir'
 import {
   readstrkindbg,
   readstrkindcolor,
   readstrkindname,
   STR_KIND,
 } from 'zss/words/kind'
-import { PT } from 'zss/words/types'
+import { COLLISION, NAME, PT } from 'zss/words/types'
 
 import { boardelementbg, boardelementcolor, boardelementname } from './board'
 import { BOARD, BOARD_ELEMENT, BOARD_HEIGHT, BOARD_WIDTH } from './types'
@@ -95,7 +94,7 @@ export function listelementsbyattr(
           return maybebyid
         }
         // check by name
-        const maybebyname = listnamedelements(board, idnameorpt.toLowerCase())
+        const maybebyname = listnamedelements(board, NAME(idnameorpt))
         if (maybebyname.length) {
           return maybebyname
         }

zss/memory/board.ts

@@ -10,7 +10,7 @@ import {
   ptapplydir,
   STR_DIR,
 } from 'zss/words/dir'
-import { COLOR, DIR, PT } from 'zss/words/types'
+import { COLOR, DIR, NAME, PT } from 'zss/words/types'
 
 import { listnamedelements, picknearestpt } from './atomics'
 import { exportboardelement, importboardelement } from './boardelement'
@@ -113,7 +113,7 @@ export function boardelementread(
 }
 
 export function boardelementname(element: MAYBE<BOARD_ELEMENT>) {
-  return (element?.name ?? element?.kinddata?.name ?? 'object').toLowerCase()
+  return NAME(element?.name ?? element?.kinddata?.name ?? 'object')
 }
 
 export function boardelementcolor(element: MAYBE<BOARD_ELEMENT>) {