Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Andreas Schnellbacher

Pages: 1 ... 16 17 [18] 19 20 ... 56
256
Networking / Re: ArcaMapper - Parameter Incorrect
« on: September 30, 2020, 06:40:49 pm »
If I remember correctly, there are some things in the RPM/YUM stuff, that will conflict too, but I quit trying to figure out VAC long before RPM/YUM showed up.
Not true, at least not when using scripts to set the env. Even C Set/2 can be used that way on a system with an installed RPM env.

257
Networking / Re: ArcaMapper - Parameter Incorrect
« on: September 30, 2020, 04:39:56 pm »
VAC 3.x has the unfortunate misbehaviour to install completely outdated SOM DLLs
Good point. Now I consider this most likely.

258
Networking / Re: ArcaMapper - Parameter Incorrect
« on: September 30, 2020, 01:25:05 am »
It turns out to be Visual Age C++ V3.0. As soon as I install the compiler and libraries, Samba stops working to add new mounts.
VAC 3 comes with many outdated files. I just won't install that normally.

Instead you can start everything from an environment set with scripts. It's not that hard, once you've extracted the files and copied the config.sys after the installation to create a cmd script from the additions. That's also the way to switch between several compilers and toolkits. Additionally, that would save to clutter your config.sys.

Always make sure that the files from the (most recent) toolkit were found first in the paths (before outdated ones in the compiler tree).

Apart from what Lars wrote about double DLL names, it may also be a shared memory problem. Ensure that all parts of VAC are unloaded before starting ArcaMapper. E.g. a process called DDE4LOAD (or similar) may be killed first. BTW: I don't think that there are common files used by either VX-REXX/ArcaMapper/SaMBa and VAC 3 that are loaded by one component and required by the other in a different version.

259
Programming / Re: Creating a RPM package for PMDLL
« on: September 28, 2020, 08:26:35 pm »
Does rpmlint exist for OS/2?

260
Programming / Re: REXX and double quoted INPUT parameter strings
« on: September 27, 2020, 07:49:41 pm »
I simply tossed this into a two liner CMD
An option is to insert '@ECHO OFF' as the second line in the REXX file.

261
Applications / Re: uBlock origin for Firefox 45 - which version?
« on: September 19, 2020, 07:12:27 pm »
OK, solved.

I had to open about:config. Then I've entered the filter xpinstall.signatures.required

The default value is true. Double-clicking the setting changes the value to false. After that (no restart required), installing
uBlock0_1.16.4.25.firefox-legacy.xpi from https://github.com/gorhill/uBlock-for-firefox-legacy/releases worked.

Thanks again.

262
Applications / Re: uBlock origin for Firefox 45 - which version?
« on: September 19, 2020, 06:48:13 pm »
Thanks, but unfortunately that doesn't work here:

I've pressed 'Next' several times, until I get to this page: https://github.com/gorhill/uBlock/releases?after=1.16.18

Then I've clicked on the 1.16.4 header: https://github.com/gorhill/uBlock/releases/tag/1.16.4

Then I've downloaded uBlock0.firefox.xpi from that page and dragged the file onto a Firefox window. The result:
Quote
This add-on could not be installed because it has not been verified.

Clicking the link directly downloads it, I see the progress bar, but gives also a slightly different error message.

I have already tried a new profile.

Also the .xpi file from the legacy page gives the same result.

263
Applications / uBlock origin for Firefox 45 - which version?
« on: September 19, 2020, 03:22:58 pm »
Can anyone recommend a version of uBlock origin that works with our Firefox 45?

The Web site: https://github.com/gorhill/uBlock/releases

I have tried several versions, but either I get this message:
Quote
This add-on could not be installed because it appears to be corrupt.
or this:
Quote
This add-on could not be installed because it has not been verified.

Newer versions need at least Firefox 55. I know that the add-ons must be verified/signed.

(With Firefox 38 (SeaMonkey 2.35), version 1.13.8 works.)

264
Hardware / Re: How to select audio output device?
« on: September 19, 2020, 12:23:48 pm »
I would try the /A: option. From README.TXT:
Code: [Select]
/A:n - Use audio adapter n where the first adapter is 0.

265
Best with technical/electronic symbols.
BTW: I would have used LaTeX for easy exchange, but I doubt that is what you want to hear.
BTW: The letter you are looking for is named 'Big Omega'.

266
Utilities / Re: "Pack this tree" on XWorkplace - ArcaOS
« on: September 14, 2020, 10:10:05 pm »
Hi all, I've finally ported my GetRealCase function to REXX and have created a replacement for XWP's packtree.cmd. I always found it annoying that the original script always creates uppercased zip filenames. (I guess it's an XWP bug when the Configuration folder feature is used.)

Here's a replacement/extension. It also adds the zip option 'S' (include system and hidden files):
  • Create a new file. Give it the name e.g. PackTreeRealCase.cmd.
  • Copy the contents of the following code into it.
  • Then open the properties of the program object System Setup ->  XWorkplace Configuration Folder -> Folder actions -> Pack tree.
  • Under "Path and filename" replace the entry with: <path>PackTreeRealCase.cmd, where <path> is the path where you placed the .cmd file. Let the other fileds empty.
  • To restore the original behavior, just restore the entry, e.g. C:\sys\apps\xwps\bin\packtree.cmd

Code: [Select]
/* REXX ------------------------------------------------------------------ */
/* This is a replacement for XWP's packtree.cmd.                           */
/* It works around the XWP flaw to always return the filename of a folder  */
/* in uppercase.                                                           */
/* Therefore it uses the GetRealCase function. That uses SysFileTree,      */
/* which uses DosFind* to query the real case of a file spec.              */
/* Unfortunately DosFind* returns only the last segment in the correct     */
/* case, so it must be processed segment-wise.                             */
/* Additionally, several ZipOptions are specified and the default value    */
/* (the last one) was changed.                                             */

'@ECHO OFF'

CALL RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
CALL SysLoadFuncs

/* The last one is the active one */
ZipOptions = '-r9'     /* original XWP */
ZipOptions = '-rSX9'   /* with system attributes, without EAs */
ZipOptions = '-rS9'    /* with system attributes */

Dirname = DIRECTORY()
Dirname = GetRealCase( Dirname)

Foldername = FILESPEC( 'NAME', Dirname)

SAY 'Packing 'Dirname' into file 'Foldername'.zip...'
'zip 'ZipOptions' ..\'Foldername'.zip *'

EXIT

/* ----------------------------------------------------------------------- */
/* Gets the real case of a file system object. Returns the input if it     */
/* doesn't exist.                                                          */
/* DosFind* for a filename or dirname returns the correct case, but only   */
/* for the last segment. To get the correct case for the entire string, it */
/* must be processed segment-wise.                                         */
GetRealCase:

DO 1
   PARSE ARG FileMask

   fFile = 0
   fDir  = 0
   rc = 0

   /* Process only full file specs */
   IF SUBSTR( FileMask, 2, 1) <> ':' THEN
      LEAVE

   /* Check if dir or file to call the correct proc for the last segment */
   SELECT
      WHEN FileExist( FileMask) THEN
         fFile = 1
      WHEN DirExist( FileMask) THEN
         fDir  = 1
      /* Handle drive only */
      WHEN RIGHT( FileMask, 1) = ':' THEN
      DO
         FileMask = TRANSLATE( FileMask)
         LEAVE
      END
   OTHERWISE
      /* Process only existing file specs */
      LEAVE
   END

   Rest = FileMask
   NewFileMask = ''
   DO WHILE Rest <> ''
      PARSE VALUE Rest WITH Next'\'Rest
      IF Next = '' THEN
         ITERATE

      /* Drive */
      IF RIGHT( next, 1) = ':' THEN
      DO
         NewFileMask = NewFileMask''TRANSLATE( Next)
         /* For root dir: append '\' here, because no more segemnt exists */
         IF RIGHT( FileMask, 2) = ':\' THEN
            NewFileMask = NewFileMask'\'
         ITERATE
      END

      IF Rest = '' THEN
      DO
         /* Last segment */
         SELECT
            WHEN fFile THEN
            DO
               NewFileMask = NewFileMask'\'Next
               Found. = ''
               Found.0 = 0
               rcx = SysFileTree( NewFileMask, 'Found.', 'FO')
               IF Found.0 > 0 THEN
                  NewFileMask = Found.1
            END
            WHEN fDir THEN
            DO
               NewFileMask = NewFileMask'\'Next
               Found. = ''
               Found.0 = 0
               rcx = SysFileTree( NewFileMask, 'Found.', 'DO')
               IF Found.0 > 0 THEN
                  NewFileMask = Found.1
            END
         END
      END
      ELSE
      DO
         /* Other segments */
         NewFileMask = NewFileMask'\'Next
         Found. = ''
         Found.0 = 0
         rcx = SysFileTree( NewFileMask, 'Found.', 'DO')
         IF Found.0 > 0 THEN
            NewFileMask = Found.1
      END

   END  /* DO WHILE Rest <> '' */

   SAY 'FileMask = 'FileMask', NewFileMask = 'NewFileMask
   FileMask = NewFileMask

END

RETURN FileMask

/* ----------------------------------------------------------------------- */
FileExist: PROCEDURE EXPOSE (GlobalVars)
   rc = ERROR.NO_ERROR

   PARSE ARG Filename

   IF FileName = '' THEN
      RETURN( 0)
   ELSE
      RETURN( STREAM( Filename, 'C', 'QUERY EXISTS') <> '')

/* ------------------------------------------------------------------------- */
DirExist: PROCEDURE EXPOSE (GlobalVars)
   rc = ERROR.NO_ERROR

   PARSE ARG Dirname

   Found.0 = 0
   rcx = SysFileTree( Dirname, 'Found.', 'DO')

   RETURN( Found.0 > 0)




267
Programming / Re: REXX and double quoted INPUT parameter strings
« on: September 14, 2020, 04:27:26 pm »
Code: [Select]
rsync --dry-run --archive --delete --progress --stats --whole-file --no-xattrs
 --human-readable --quiet --exclude-from=G:\mptn\etc\rsync_exclude
 --log-file=G:tmp\log\rsync_NAS_backup.log
  G:\DESKTOP\MISC INFO\ V:\PUBLIC\DOCUMENTS\MISC INFO

still gives me the following error from rsync:
[...]
Sure. Have you tried to enquote the dirnames?
Code: [Select]
rsync ... "G:\DESKTOP\MISC INFO\" "V:\PUBLIC\DOCUMENTS\MISC INFO"

If you call that from a REXX script, you have two choices: Use surrounding single quotes for the entire rsync call including args or double all contained double quotes and surround it with double quotes.

The single quote option would be much easier to read.

For automatically enquoting a filename, if required, I use something like this:
Code: [Select]
Enquote:
   rc = 0

   PARSE ARG Filename

   IF VERIFY( Filename, ' &|<>', 'M') <> 0 THEN
      Filename = '"'Filename'"'

   RETURN( Filename)

Then you could change the rsync call to:
Code: [Select]
Cmd = 'rsync ... 'Enquote( 'G:\DESKTOP\MISC INFO\') Enquote( 'V:\PUBLIC\DOCUMENTS\MISC INFO')
Cmd
and use either single or double quotes to make the interpreter submit that to CMD.EXE.

Edit: Damned. The third version of the Cmd should finally work. (Much easier when you have syntax highlighting.)

268
Programming / Re: REXX and double quoted INPUT parameter strings
« on: September 14, 2020, 11:40:47 am »
Here's how to parse enquoted args correctly. It allows for multiple args, each may be enclosed in double quotes.

First the output:
Code: [Select]
> TestParseArgs.cmd "G:\DESKTOP\MISC INFO\" "V:\PUBLIC\DOCUMENTS\MISC INFO"
1: Rest = ["G:\DESKTOP\MISC INFO\" "V:\PUBLIC\DOCUMENTS\MISC INFO"]
1: Next = [G:\DESKTOP\MISC INFO\]
2: Rest = ["V:\PUBLIC\DOCUMENTS\MISC INFO"]
2: Next = [V:\PUBLIC\DOCUMENTS\MISC INFO]
Arg.1 = G:\DESKTOP\MISC INFO\
Arg.2 = V:\PUBLIC\DOCUMENTS\MISC INFO

Here's the script:
Code: [Select]
/* Parse multiple args optionally enclosed in double quotes */

/* Parse args */
PARSE ARG Args
Args = STRIP( Args)

/* Init vars */
Arg. = ''
Arg.0 = 0
Rest = Args

/* Parse Rest */
DO WHILE Rest <> ''
   /* Advance arg counter */
   NumArgs = Arg.0 + 1
   SAY NumArgs': Rest = ['Rest']'
   
   /* Parse Next from Rest */
   IF LEFT( Rest, 1) = '"' THEN
      PARSE VAR Rest '"'Next'"' Rest
   ELSE   
      PARSE VAR Rest Next Rest
   SAY NumArgs': Next = ['Next']'

   /* Strip multiple spaces between args */     
   Rest = STRIP( Rest)

   /* Save Next to Arg. array */
   Arg.NumArgs = Next
   Arg.0 = NumArgs
END

/* Test Arg. array */
DO i = 1 TO Arg.0
   SAY 'Arg.'i' = 'Arg.i
END

EXIT


269
Utilities / Re: "Pack this tree" on XWorkplace - ArcaOS
« on: September 13, 2020, 06:46:06 pm »
I guess the 3D look for selected menu items is hard-coded in pmmerge.dll. Even the scheme palette doesn't provide that option.

270
Setup & Installation / Re: how to tell DIR which date to show?
« on: September 12, 2020, 07:47:20 pm »
Strange. If I use DosQueryPathInfo, 4OS/2, OS/2 tools or the WPS, I always get the correct dates and times. All 4OS/2 (version 3.08.3-shl) options that Lars mentioned, work here. I checked this for both bootable and non-bootable JFS.

From bsedos.h:
Code: [Select]
   typedef struct _FILESTATUS3     /* fsts3 */
   {
      FDATE  fdateCreation;
      FTIME  ftimeCreation;
      FDATE  fdateLastAccess;
      FTIME  ftimeLastAccess;
      FDATE  fdateLastWrite;
      FTIME  ftimeLastWrite;
      ULONG  cbFile;
      ULONG  cbFileAlloc;
      ULONG  attrFile;
   } FILESTATUS3;
   typedef FILESTATUS3 *PFILESTATUS3;

That shows that the used terms on OS/2 are LastWrite, LastAccess and Creation. The WPS uses
'last write', 'last access' and 'creation'.

Pages: 1 ... 16 17 [18] 19 20 ... 56