openSUSE Paste > configSTR.tcl
Login

Cancel

Info:

By Malcolm, 1 Year ago, written in TCL. This post will never expire.

URL: http://paste.opensuse.org/28885339

Replies to configSTR.tcl:

Title Name When
RE: configSTR.tcl - 2nd attempt netdevil_germany 1 Year ago.
RE: configSTR.tcl netdevil_germany 1 Year ago.
  1. #!/bin/sh
  2. # the next line restarts using tclsh \
  3.         exec tclsh "$0" "$@"
  4.  
  5. #TAB SIZE: 4
  6.  
  7. catch {source configINT.tcl}
  8.  
  9. set USB_VID_MORE                        "0123 3823 3823 0EEF 0EEF"
  10. set USB_PID_MORE                        "0001 0001 0002 0001 0002"
  11.  
  12. ##########################################################
  13. #                               PATH
  14. ##########################################################
  15.  
  16. set PATH_DEV                            "/dev/"
  17. set PATH_VAR                            "/var/run/"
  18.  
  19. set ${PRJNAME}_LOCK                     "${PATH_VAR}tpaneld.pid"
  20. set ${PRJNAME}_DAT                      "${PATH_DEV}tkdat"
  21. set ${PRJNAME}_CMD                      "${PATH_DEV}tkcmd"
  22. set ${PRJNAME}_CMDIN            "[subst $${PRJNAME}_CMD]in"
  23. set ${PRJNAME}_CMDOUT           "[subst $${PRJNAME}_CMD]out"
  24. set ${PRJNAME}_SHR                      "${PATH_DEV}tkshr"
  25. set ${PRJNAME}_SHRIN            "[subst $${PRJNAME}_SHR]in"
  26. set ${PRJNAME}_SHROUT           "[subst $${PRJNAME}_SHR]out"
  27.  
  28. set ROM_FORMAT                          "%s.rom"
  29. set ${PRJNAME}_ROMHOME          "/etc/tpanel.rom/"
  30. set ${PRJNAME}_CONF                     "/etc/tpaneld.conf"
  31.  
  32. set TOUCHCFG_CMD                        "/tmp/touchcfg.cmd"
  33.  
  34. set ${PRJNAME}_HOME                     "/usr/local/${PRJNAME}/"
  35.  
  36. set XMODULE_HOME                        "/usr/X11R6/lib/modules/"
  37. set XDRV_HOME                           "${XMODULE_HOME}input/"
  38.  
  39. set RCLICK_LOCK                         "/tmp/rclick.lock"
  40.  
  41. set ${PRJNAME}_USBMODULE        "$PRJNAME"
  42.  
  43. set USBPORT                                     "/dev/usb/tkpanel"
  44.  
  45. set DEV_LIST                            "/proc/bus/usb/devices"
  46. set PNP_CONFIG                          "/etc/usbpnpd.conf"
  47. set PRG_LOCK                            "/var/run/usbpnpd.pid"
  48.  
  49. unset PATH_VAR
  50. unset PATH_DEV
  51.  
  52. #######################################################
  53. #                                       DRIVER INFO
  54. #######################################################
  55.  
  56. set DRIVER_NAME                         $XDRIVER_NAME
  57. set MODULE_NAME                         TouchKit
  58.  
  59. set XI_PANEL                            "TKPANEL"
  60. set XI_CONTROL                          "PCTRL"
  61.  
  62. set PANEL_SECTION_NAME          "${DRIVER_NAME}panel"
  63.  
  64. set ${PRJNAME}_DEVICENAME       "tpanel"
  65.  
  66. #######################################################
  67. #                                       DIAG STYLE
  68. #######################################################
  69.  
  70. set AP_BACKGROUND                       "black"
  71. set AP_GRID                                     "green"
  72. set AP_CROSS_OK                         "yellow"
  73. set AP_CROSS_WAIT                       "blue"
  74. set AP_TOUCH_UP                         "red"
  75. set AP_TOUCH_DOWN                       "green"
  76. set AP_LINE                                     "yellow"
  77.  
  78. set AP_CURSOR                           "gumby"
  79.  
  80. set ModeList                            "DRAWING DESKTOP"
  81. set sDefaultMode                        [lindex $ModeList 0]
  82. foreach m $ModeList {
  83.         set sTM_$m $m
  84. }
  85. unset m
  86.  
  87. set sSM_NONE                            "None"
  88. set sSM_DOWN                            "Down"
  89. set sSM_UP                                      "Up"
  90.  
  91. set SoundModeList                       "$sSM_NONE $sSM_DOWN $sSM_UP"
  92. set sDefaultSoundMode           "$SM_NONE"
  93.  
  94. set _Sound                                      "Sound"
  95. set _Port                                       "Port"
  96. set _MouseMode                          "MouseMode"
  97. set _DblClickSpeed                      "DblClickSpeed"
  98. set _DblClickArea                       "DblClickArea"
  99. set _RClickTool                         "RClickTool"
  100.  
  101. set KeywordList                         "$_MouseMode $_DblClickSpeed $_DblClickArea $_RClickTool $_Port $_Sound"
  102.  
  103. set DefaultDeviceList           "/dev/ttyS0 /dev/ttyS1 /dev/psaux"
  104.  
  105. if { [file exists /proc/bus/usb] } {
  106.         if { [catch {exec cat /tmp/.usb.on} usb] } {
  107.                 #set usb ON, if open failed
  108.                 set usb 1
  109.         }
  110.         if { ![string compare $usb 1] } {
  111.                 for {set i 0} {$i < $SCR_MAX_MNR} {incr i} {
  112.                         lappend DefaultDeviceList ${USBPORT}$i
  113.                 }
  114.                 unset i
  115.         }
  116.         unset usb
  117. }
  118.  
  119. set DefaultConfData                     "$_MouseMode = $sDefaultMode $_DblClickSpeed = $DefaultDblClickSpeed $_DblClickArea = $DefaultDblClickArea $_RClickTool = $DefaultRClickTool $_Sound = $sDefaultSoundMode"
  120.  
  121. set USBPNPD_ACTION              \
  122.         [subst {insmod $USBMODULE_NAME; /usr/bin/$TPANELD_NAME reset}]
  123.  
  124. set DefaultUSBpnpdConf          "#Device = VendorID, ProductID, ActionIfPlugIn"
  125.  
  126. Device = [ format {0x%04X, 0x%04X, %s} \
  127.         [subst $${PRJNAME}_USB_VID] [subst $${PRJNAME}_USB_PID] $USBPNPD_ACTION]"
  128.  
  129. foreach device $DefaultDeviceList {
  130.         append DefaultConfData "$_Port = $device\n"
  131. }
  132.  
  133. unset device
  134.  
  135.  

Here you can reply to the paste above

  • Image
  • Code