! User environment procedures.

from Imp include Lognames, SSdef, Sysio

record format buff fm   (byte class, type, short width, integer rest)
own record (Iosb fm) Status
own record (buff fm) buff

external string (255) fn UINFS alias "EDWIN_UINFS" (integer I)
   string (255) TEMP
   external string (255) fn spec USERNAME alias "IMP_USER_NAME"
   external string (255) fn spec CURRENT PROMPT alias "IMP_CURRENT_PROMPT"
   switch SW(1:13)

   result = "" unless 1<=I<=13
   -> SW(I)

SW(1): ! Username
       result = USERNAME

SW(2): ! Delivery string
       TEMP = TRANSLATE ("EDWIN_DELIVER")
       TEMP = "NO DELIVERY INFO SET!" if TEMP="EDWIN_DELIVER"
       result = TEMP

SW(3): ! Process start time
       result = "Not yet implemented"

SW(4): ! Current prompt text
       result = current prompt

SW(7): ! Surname
       result = "Not yet Implemented"

SW(8): ! CFAULTS option
       result = "TT:"

SW(10): ! Machine
        TEMP = TRANSLATE ("EDWIN_MACHINE")
        TEMP = "VAX" if TEMP="EDWIN_MACHINE"
        result = TEMP

SW(*): result = ""
end

end of file