Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor)

From	"A.D. Fundum" <what.ever@neverm.ind>
Message-ID	<o8uYFJ3iqTdG-pn2-elEVuPKf3frN@localhost> (permalink)
Newsgroups	comp.os.os2.programmer.misc, comp.os.os2.apps, comp.os.os2.programmer.tools
Subject	Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor)
References	(1 earlier) <o8uYFJ3iqTdG-pn2-lddw7WF8YUTz@localhost> <o8uYFJ3iqTdG-pn2-dKTjwP0UB8sB@localhost> <97c9mpF42tU1@mid.uni-berlin.de> <o8uYFJ3iqTdG-pn2-l1zCrydyidcP@localhost> <cSWxyCWhUBcp-pn2-ukwFVnsMMr19@localhost>
Organization	News-Service.com
Date	2011-07-24 12:32 +0200

Cross-posted to 3 groups.

Show all headers | View raw

 > Together with e.g. Sergey Yevtushenko's CLIP.CPP this already has
 > some use: "PRINTDIR | CLIP" 

 > I haven't embedded the clipboard funcionality, so PRINTDIR isn't
 > DIR2CLIP. For one because the .subject-EA of a file downloaded
 > with FF/SM also is a possible candidate to be copied to the
 > clipboard

 > Hey, write your own Rexx 2Clip-frontend! ;-) 

[D:\database\paris\cac40]PRINTSEA d:\bbox\q1.zip
http://hobbes.mnsu.edu/download/private/hq/meetings/q12011.zip

--


/* PrintsEA.CMD, Print s(ubject) EA of a file */

CALL RxFuncAdd 'SysGetEA','RexxUtil','SysGetEA'

PARSE ARG file

IF arg()<>1 THEN DO
   SAY 'Usage: PrintsEA <file>'
   EXIT 1
END

file=Strip(file)
IF Left(file,1)='"' THEN PARSE VAR file '"' file '"' .
 
IF Stream(file,'C','QUERY EXISTS')='' THEN DO 
   SAY 'Error: file' file 'not found'
   EXIT 1
END

rc=SysGetEA(file,'.subject','URL')

IF url='' THEN DO
   SAY 'Error: no ".subject" extended attribute found'
   EXIT 1
END

PARSE VAR url 1 . 5 url
IF Pos('://',url,1)<2 THEN DO
   SAY 'Error: no URL found in the ".subject" extended attribute'
   EXIT 1
END

SAY url

EXIT

Back to comp.os.os2.programmer.tools | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Force gnu assembler to invoke the preprocessor Marcel Müller <news.5.maazl@spamgourmet.org> - 2011-06-19 12:28 +0200
  Re: Force gnu assembler to invoke the preprocessor "A.D. Fundum" <what.ever@neverm.ind> - 2011-06-19 15:42 +0200
    Re: Force gnu assembler to invoke the preprocessor "A.D. Fundum" <what.ever@neverm.ind> - 2011-07-03 16:46 +0200
      DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor) Andreas Schnellbacher <aschn@despammed.com> - 2011-07-04 00:44 +0200
        Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor) "A.D. Fundum" <what.ever@neverm.ind> - 2011-07-04 11:09 +0200
          Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor) "A.D. Fundum" <what.ever@neverm.ind> - 2011-07-21 22:54 +0200
            Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor) "A.D. Fundum" <what.ever@neverm.ind> - 2011-07-24 12:23 +0200
            Re: DosQueryPathInfo with correct case (was: Force gnu assembler to invoke the preprocessor) "A.D. Fundum" <what.ever@neverm.ind> - 2011-07-24 12:32 +0200
  Re: Force gnu assembler to invoke the preprocessor Dave Yeo <dave.r.yeo@gmail.com> - 2011-06-19 11:24 -0700

csiph-web