PageRenderTime 37ms CodeModel.GetById 14ms RepoModel.GetById 0ms app.codeStats 0ms

/jEdit/tags/jedit-4-2-pre4/jedit.cmd

#
Batch | 73 lines | 61 code | 12 blank | 0 comment | 7 complexity | c23e5250c60e98cd2825ba23f8089d8b MD5 | raw file
Possible License(s): BSD-3-Clause, AGPL-1.0, Apache-2.0, LGPL-2.0, LGPL-3.0, GPL-2.0, CC-BY-SA-3.0, LGPL-2.1, GPL-3.0, MPL-2.0-no-copyleft-exception, IPL-1.0 
    

  1. /* MAINTAINERS: Robert Henschel (os2info@gmx.net)
    2. 

  2.  *              Christoph vogt (ch.vogt@gmx.net)
    3. 

  3.  *              Gili Tzabari (junk@bbs.darktech.org)
    4. 

  4.  * PLATFORM: OS/2, eCS
    5. 

  5.  * 
    6. 

  6.  * Used to run JEdit 3.1
    7. 

  7.  */
    8. 

  8. 

  9. 

  10. rc = QueryJavaVersion()
    11. 

  11. if (rc = -1) then
    12. 

  12. do
    13. 

  13.   say "java.exe cannot be found"
    14. 

  14.   return -1;
    15. 

  15. end
    16. 

  16. if (rc = -2) then
    17. 

  17.   say "Unexpected response to JAVA -VERSION. Assuming newest version is being used."
    18. 

  18. 

  19. arguments = "-settings=%HOME%\.jedit -server=%HOME%\.jedit\server"
    20. 

  20. jedit_dir = GetExecPath()
    21. 

  21. 

  22. if (iMajor = 1 & iMid <= 1) then
    23. 

  23.     'java -classpath %classpath%;'jedit_dir'\jedit.jar org.gjt.sp.jedit.jEdit 'arguments
    24. 

  24.   else
    25. 

  25.     'java -jar 'jedit_dir'\jedit.jar 'arguments
    26. 

  26. 

  27. return 0
    28. 

  28. 

  29. 

  30. 

  31. 

  32. 

  33.  /*
    34. 

  34.   * Java version detector.
    35. 

  35.   * Assumes java -version return quoted ("") version number.
    36. 

  36.   * Written by os2bird on #netlabs
    37. 

  37.   *
    38. 

  38.   * Returns -1 on no java or failed to execute
    39. 

  39.   *         -2 on invalid java version string.
    40. 

  40.   *         version number.
    41. 

  41.   */
    42. 

  42. QueryJavaVersion: procedure expose iMajor iMid iMinor
    43. 

  43. cQueued =  queued();
    44. 

  44. '@echo off'
    45. 

  45. 'java -version 2>&1 | rxqueue /LIFO'
    46. 

  46. i = queued();
    47. 

  47. do while i > cQueued
    48. 

  48.     pull sStr
    49. 

  49.     if (pos("JAVA VERSION ", sStr) > 0) | (pos("JAVA.EXE VERSION ", sStr) > 0) then
    50. 

  50.     do
    51. 

  51.         do while(queued() > 0) 
    52. 

  52.           pull sStrIngore; /* flush input stream */
    53. 

  53.         end
    54. 

  54.         parse var sStr sStuff '"'iMajor'.'iMid'.'iMinor'"'
    55. 

  55.         if (iMinor <> '') then
    56. 

  56.             return iMajor*100 + iMid * 10 + iMinor;
    57. 

  57.          else
    58. 

  58.              return -2
    59. 

  59.      end
    60. 

  60.      i = i - 1;
    61. 

  61.  end
    62. 

  62.  return -1;
    63. 

  63. 

  64. 

  65. /*
    66. 

  66.  * Returns the path of the script being executed.
    67. 

  67.  */
    68. 

  68. GetExecPath: procedure
    69. 

  69. parse source result
    70. 

  70. parse var result 'OS/2 ' dummy result                        /* Get full path of script */
    71. 

  71. result=filespec("drive", result) || filespec("path", result) /* strip away filename */
    72. 

  72. result=substr(result, 1, length(result)-1)                   /* remove backslash */
    73. 

  73. return result
    74.