Path: csiph.com!x330-a1.tempe.blueboxinc.net!usenet.pasdenom.info!gegeweb.org!de-l.enfer-du-nord.net!feeder2.enfer-du-nord.net!feeder.news-service.com!feeder3!nf14.news-service.com!not-for-mail
From: "A.D. Fundum" <what.ever@neverm.ind>
Message-ID: <o8uYFJ3iqTdG-pn2-elEVuPKf3frN@localhost>
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: <4dfdcf49$0$7624$9b4e6d93@newsspool1.arcor-online.net> <o8uYFJ3iqTdG-pn2-lddw7WF8YUTz@localhost> <o8uYFJ3iqTdG-pn2-dKTjwP0UB8sB@localhost> <97c9mpF42tU1@mid.uni-berlin.de> <o8uYFJ3iqTdG-pn2-l1zCrydyidcP@localhost> <cSWxyCWhUBcp-pn2-ukwFVnsMMr19@localhost>
User-Agent: ProNews/2 V1.60.cp125
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@news-service.com
Organization: News-Service.com
Date: Sun, 24 Jul 2011 12:32:51 +0200
Lines: 51
NNTP-Posting-Host: 84.53.88.202 (84.53.88.202)
NNTP-Posting-Date: Sun, 24 Jul 2011 12:32:51 +0200
Xref: x330-a1.tempe.blueboxinc.net comp.os.os2.programmer.misc:343 comp.os.os2.apps:407 comp.os.os2.programmer.tools:21

 > 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