[ jEdit-devel ] Installation on ECS or OS/2

[<Mik...@su...>]

Hi:

I just installed version 4.2 (stable) on ECS (current version of OS/2) =
and would like to submit these install instructions:
  - download jedit42install.jar.
  - open a command window.
  - change to the directory where jedit42install.jar resides.
  - type "java -jar jedit42install.jar" and press enter.
  - follow instructions as presented by the installer.

Additionally, I would like to submit this command file as the one deliv=
ered with the install did not work (very minor changes).

** Start of File **
   /* MAINTAINERS: Robert Henschel (os...@gm...)
    *              Christoph vogt (ch...@gm...)
    *              Gili Tzabari (ju...@bb...)
    * PLATFORM: OS/2, eCS
    *
    * Used to run JEdit 3.1
    */

   rc =3D QueryJavaVersion()
   if (rc =3D -1) then
   do
     say "java.exe cannot be found"
     return -1;
   end
   if (rc =3D -2) then
     say "Unexpected response to JAVA -VERSION. Assuming newest version=
 is being used."

   arguments =3D "-settings=3D%HOME%\.jedit -server=3D%HOME%\.jedit\ser=
ver"
   jedit_dir =3D GetExecPath()

   if (iMajor =3D 1 & iMid <=3D 1) then
       'java -classpath %classpath%;'jedit_dir'\jedit.jar org.gjt.sp.je=
dit.jEdit 'arguments
     else
       'java -jar 'jedit_dir'\jedit.jar 'arguments

   return 0

    /*
     * Java version detector.
     * Assumes java -version return quoted ("") version number.
     * Written by os2bird on #netlabs
     *
     * Returns -1 on no java or failed to execute
     *         -2 on invalid java version string.
     *         version number.
     */
   QueryJavaVersion: procedure expose iMajor iMid iMinor
   cQueued =3D  queued();
   '@echo off'
   'java -version 2>&1 | rxqueue /LIFO'
   i =3D queued();
   do while i > cQueued
       pull sStr
       if (pos("JAVA VERSION ", sStr) > 0) | (pos("JAVA.EXE VERSION ", =
sStr) > 0) then
       do
           do while(queued() > 0)
             pull sStrIgnore; /* flush input stream */
           end
           parse var sStr sStuff '"'iMajor'.'iMid'.'iMinor'"'
           iMinor =3D SUBSTR(iMinor,1,1)
           if (iMinor <> '') then
               return iMajor*100 + iMid * 10 + iMinor;
            else
                return -2
        end
        i =3D i - 1;
    end
    return -1;

   /*
    * Returns the path of the script being executed.
    */
   GetExecPath: procedure
   parse source result
   parse var result 'OS/2 ' dummy result                        /* Get =
full path of script */
   result=3Dfilespec("drive", result) || filespec("path", result) /* st=
rip away filename */
   result=3Dsubstr(result, 1, length(result)-1)                   /* re=
move backslash */
   return result
** End of File **


Thanks.....Mike.

-----------------------------------------------------------------------=
----
This e-mail message (including attachments, if any) is intended for the=
 use
of the individual or entity to which it is addressed and may contain
information that is privileged, proprietary , confidential and exempt f=
rom
disclosure.  If you are not the intended recipient, you are notified th=
at
any dissemination, distribution or copying of this communication is
strictly prohibited.  If you have received this communication in error,=

please notify the sender and erase this e-mail message immediately.
-----------------------------------------------------------------------=
----
Le pr=E9sent message =E9lectronique (y compris les pi=E8ces qui y sont =
annex=E9es,
le cas =E9ch=E9ant) s'adresse au destinataire indiqu=E9 et peut conteni=
r des
renseignements de caract=E8re priv=E9 ou confidentiel. Si vous n'=EAtes=
 pas le
destinataire de ce document, nous vous signalons qu'il est strictement
interdit de le diffuser, de le distribuer ou de le reproduire. Si ce
message vous a =E9t=E9 transmis par erreur, veuillez en informer l'exp=E9=
diteur
et le supprimer imm=E9diatement.
-----------------------------------------------------------------------=
----=