AminetAminet
Search:
82128 packages online
About
Recent
Browse
Search
Upload
Setup
Services

util/batch/chequals.lha

Mirror:Random
Showing:m68k-amigaosppc-amigaosppc-morphosi386-arosi386-amithlonppc-warpupppc-powerupgeneric
No screenshot available
Short:Checks for qual's and sets return code
Author:Thomas Ansorge, Dinkelackerring 55, D-67435 Neustadt a. d. Weinstraße
Uploader:thomas ansorge stud uni-karlsruhe de (valid until about Nov-95)
Type:util/cli
Architecture:m68k-amigaos
Date:1995-07-03
Download:http://aminet.net/util/batch/chequals.lha - View contents
Readme:http://aminet.net/util/batch/chequals.readme
Downloads:1172
The file CheckQualifiers.doc follows. Note that there is also a German file
Checkqualifiers.dok in the archive.


                              CheckQualifiers
                              ~~~~~~~~~~~~~~~
                              
                                Version 1.4
                                
                                15-Jan-1995


Legal Stuff:
~~~~~~~~~~~~
DISCLAIMER: CHECKQUALIFIERS SOFTWARE IS PROVIDED "AS-IS", NO WARRANTIES OF
ANY KIND ARE MADE. ALL USE IS AT YOUR OWN RISK.

Copyright: Freeware

CheckQualifiers was written on an A4000 with OS 3.1 (V40), but should work
on all 68000 based machines with OS 2.04 (V37) and up.


Description:
~~~~~~~~~~~~
CheckQualifiers is a small CLI utility meant for use in scripts. It checks
if a given set of qualifiers is currently pressed or not and sets its
return code accordingly. There is no output unless you ask for the template
or an error occurs, so a closed cli window will (hopefully) not pop up.

Template:
LSHIFT/S,RSHIFT/S,CAPSLOCK/S,CONTROL/S,LALT/S,RALT/S,LCOMMAND/S,RCOMMAND/S,
MIDBUTTON/S,RIGHTBUTTON/S,LEFTBUTTON/S

Example:
~~~~~~~~
We check for both LSHIFT and LALT. The return code is returned in $rc, as
all good programs should do. If there are more than one IF to react to the
qualifiers, we need to store $rc in one of our variables because IF changes
the contents of $rc.

	CheckQualifiers LSHIFT LALT
	Echo >ENV:cqrc $rc ; save $rc to $cqrc
	
	IF VAL $cqrc EQ 0
		Echo "neither LSHIFT nor LALT"
	ENDIF
	
	IF VAL $cqrc EQ 1
		Echo "LSHIFT or LALT, but not both"
	ENDIF
	
	IF VAL $cqrc EQ 2
		Echo "LSHIFT and LALT and something else"
	ENDIF
	
	IF VAL $cqrc EQ 3
		Echo "LSHIFT and LALT and nothing else"
	ENDIF
	
	UnSetEnv cqrc

EQ checks for equality. You can use GT, GE, NOT GT and NOT GE to check for
>, >=, <=, <, respectively.

Author:
~~~~~~~
Thomas Ansorge
Dinkelackerring 55
D-67435 Neustadt an der Weinstraße
Germany
EUROPE

Greetings go to...
~~~~~~~~~~~~~~~~~~
my beta-testers Michael and Stephan,

and all authors, who publish something and do not ask for anything in
return.

Happy checking! Th. :-})


Contents of util/batch/chequals.lha
 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                  271     628  43.2% -lh5- d158 Apr 16  1995 CheckQuals.info
[generic]                 1717    2376  72.3% -lh5- 183b Apr 16  1995 CheckQuals/CheckQualifiers
[generic]                 1017    2002  50.8% -lh5- 1720 Apr 16  1995 CheckQuals/CheckQualifiers.doc
[generic]                  322    1091  29.5% -lh5- d5af Mar  7  1995 CheckQuals/CheckQualifiers.doc.info
[generic]                 1129    2253  50.1% -lh5- c859 Apr 16  1995 CheckQuals/CheckQualifiers.dok
[generic]                  322    1091  29.5% -lh5- d5af Mar  7  1995 CheckQuals/CheckQualifiers.dok.info
[generic]                  490     834  58.8% -lh5- 3c34 Apr 16  1995 CheckQuals/Product-Info
[generic]                  252     563  44.8% -lh5- 65ef Apr 16  1995 CheckQuals/Product-Info.info
[generic]                  458    1026  44.6% -lh5- 8881 Apr 16  1995 CheckQuals/Source/CheckQualifiers.log
[generic]                 2043    6226  32.8% -lh5- e80e Apr 16  1995 CheckQuals/Source/CheckQualifiers.mod
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total        10 files    8021   18090  44.3%            Jul  3  1995

Aminet © 1992-2017 Urban Müller and the Aminet team. Aminet contact address: <aminetaminet net>