(naoqieus) Accept variations and abbreviations for :set-language

yuki-asano · Aug 18, 2022 · 32fbea6 · 32fbea6
1 parent 5b91cb9
commit 32fbea6
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/jsk_naoqi_robot/naoqieus/naoqi-interface.l b/jsk_naoqi_robot/naoqieus/naoqi-interface.l
@@ -419,6 +419,14 @@
    )
   (:set-language
    (language)
+   (if (keywordp language) (setq language (string-downcase language)))
+   (if (or (string-equal language "english")
+           (string-equal language "en"))
+       (setq language "English"))
+   (if (or (string-equal language "japanese")
+           (string-equal language "ja")
+           (string-equal language "jp"))
+       (setq language "Japanese"))
    (let ((ret (instance naoqi_bridge_msgs::SetStringRequest :init))
 	 res)
      (ros::wait-for-service (format nil "~A/naoqi_driver/set_language" group-namespace))