github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-16 23:17:13 +00:00
Code Issues Releases Wiki Activity

XUNAME is a builtin in Muddle 56.

Browse Source
This commit is contained in:
Adam Sampson
2020-08-29 03:51:09 +01:00
parent bfdd714eb8
commit dec1ebfa4f
1 changed files with 0 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/lcf/rooms.394 → src/lcf/rooms.395
View File

@@ -118,17 +118,6 @@
<OFF ,GC-HAND>
<DEFINE XUNAME ()
#DECL ((VALUE) STRING)
<MAPF ,STRING
<FUNCTION (X)
#DECL ((X) CHARACTER)
<COND (<OR <0? <ASCII .X>>
<==? <ASCII .X> 32>>
<MAPSTOP>)
(T .X)>>
<GXUNAME>>>
<DEFINE ITS-GET-NAME (UNAME "AUX" (NM <LSR-ENTRY .UNAME>) CMA JR LFST LLST
TLEN TSTR STR)
#DECL ((STR TSTR UNAME) STRING (NM CMA JR) <OR STRING FALSE>