From bc47b92d553cb83fa2d5f34265edfed49a060bc8 Mon Sep 17 00:00:00 2001
From: CoprDistGit <infra@openeuler.org>
Date: Tue, 6 Aug 2024 02:18:21 +0000
Subject: automatic import of ksh

---
 kshrc.rhs | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 kshrc.rhs

(limited to 'kshrc.rhs')

diff --git a/kshrc.rhs b/kshrc.rhs
new file mode 100644
index 0000000..fd8a14c
--- /dev/null
+++ b/kshrc.rhs
@@ -0,0 +1,53 @@
+#
+# /etc/kshrc is sourced in interactive shells.  It
+# should contain commands to set up aliases, functions,
+# options, key bindings, etc.
+#
+
+# Set prompts
+#PROMPT='[%n@%m]%~%# '    # default prompt
+#RPROMPT=' %~'     # prompt for right side of screen
+
+_src_etc_profile_d()
+{
+    # from zshrc, with ksh fixes
+    if [[ ! -o login ]]; then # We're not a login shell
+        for i in /etc/profile.d/*.sh; do
+	    if [ -r "$i" ]; then
+	        . $i
+	    fi
+        done
+        unset i
+    fi
+}
+
+pathmunge () {
+case ":${PATH}:" in
+*:"$1":*)
+    ;;
+*)
+    if [ "$2" = "after" ]; then
+        PATH=$PATH:$1
+    else
+        PATH=$1:$PATH
+    fi
+esac
+}
+
+_src_etc_profile_d
+
+unset -f _src_etc_profile_d
+unset -f pathmunge
+
+# key bindings - make Delete, Home, End,... work
+keybd_trap () {
+  case ${.sh.edchar} in
+    $'\e[1~') .sh.edchar=$'\001';; # Home = beginning-of-line
+    $'\e[F')  .sh.edchar=$'\005';; # End = end-of-line
+    $'\e[5~') .sh.edchar=$'\e>';; # PgUp = history-previous
+    $'\e[6~') .sh.edchar=$'\e<';; # PgDn = history-next
+    $'\e[3~') .sh.edchar=$'\004';; # Delete = delete-char
+  esac
+}
+trap keybd_trap KEYBD
+
-- 
cgit v1.2.3