From ba881ba634bbebb0203ca2d2ec7ced7a00706b3f Mon Sep 17 00:00:00 2001 From: short <> Date: Wed, 8 Oct 2003 05:52:09 +0000 Subject: [PATCH] +QueryDev --- configure.ac | 1 + project/Makefile.am | 3 +- project/QueryDev/Index.html.pl | 39 +++++++++++++++++++++++++ project/QueryDev/ListItem.pm | 49 +++++++++++++++++++++++++++++++ project/QueryDev/Makefile.am | 23 +++++++++++++++ project/QueryDev/QueryDev.asm | 65 +++++++++++++++++++++++++++++++++++++++++ project/QueryDev/QueryDev.lha | Bin 0 -> 1985 bytes 7 files changed, 179 insertions(+), 1 deletion(-) create mode 100755 project/QueryDev/Index.html.pl create mode 100755 project/QueryDev/ListItem.pm create mode 100644 project/QueryDev/Makefile.am create mode 100644 project/QueryDev/QueryDev.asm create mode 100644 project/QueryDev/QueryDev.lha diff --git a/configure.ac b/configure.ac index 2fc6add..0c747e4 100644 --- a/configure.ac +++ b/configure.ac @@ -84,6 +84,7 @@ Makefile ./project/lynxilla/Makefile ./project/wayback/Makefile ./project/kewensis/Makefile +./project/QueryDev/Makefile ]) echo done. diff --git a/project/Makefile.am b/project/Makefile.am index 01aa558..8cdf6fc 100644 --- a/project/Makefile.am +++ b/project/Makefile.am @@ -67,7 +67,8 @@ SUBDIRS= \ 332 \ lynxilla \ wayback \ - kewensis + kewensis \ + QueryDev EXTRA_DIST+= \ Index.html.pl \ diff --git a/project/QueryDev/Index.html.pl b/project/QueryDev/Index.html.pl new file mode 100755 index 0000000..498db71 --- /dev/null +++ b/project/QueryDev/Index.html.pl @@ -0,0 +1,39 @@ +#! /usr/bin/perl +# +# $Id$ +# Main page of 'My::Project::QueryDev' +# Copyright (C) 2003 Jan Kratochvil +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +package project::QueryDev::Index; +require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway +our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +our $CVS_ID=q$Id$; +use strict; +use warnings; + +BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; } +use My::Web; +Wuse 'My::Project'; +Wuse 'project::QueryDev::ListItem'; + + +My::Project->init_project( + "__PACKAGE__"=>__PACKAGE__, + "ListItem"=>\@project::QueryDev::ListItem::ListItem, + ); + +My::Web->footer(); diff --git a/project/QueryDev/ListItem.pm b/project/QueryDev/ListItem.pm new file mode 100755 index 0000000..6342d65 --- /dev/null +++ b/project/QueryDev/ListItem.pm @@ -0,0 +1,49 @@ +#! /usr/bin/perl +# +# $Id$ +# Definition of 'My::Project::QueryDev' for list.cgi.pl +# Copyright (C) 2003 Jan Kratochvil +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +package project::QueryDev::ListItem; +require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway +our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; +our $CVS_ID=q$Id$; +use strict; +use warnings; + +use My::Web; + + +our @ListItem=( + "name"=>"QueryDev", + "platform"=>"amiga", + "priority"=>3, + "download"=>"QueryDev.lha", + "link-source file"=>"QueryDev.asm", + "summary"=>"Detect disk device name from its volume name", + "license"=>"PD", + "maintenance"=>"ready", + "language"=>"680x0 asm", + "description"=><<"HERE", +

QueryDev detects the device name from the given volume name. Volume must be +locked in the system. Useful for DiskCopy which has the parameter DEVICE and +you want to copy the diskette from any drive. QueryDev writes the detected +device name to the specified variable.

+HERE + ); + +1; diff --git a/project/QueryDev/Makefile.am b/project/QueryDev/Makefile.am new file mode 100644 index 0000000..b4a1946 --- /dev/null +++ b/project/QueryDev/Makefile.am @@ -0,0 +1,23 @@ +# $Id$ +# automake source for the Makefile of project/QueryDev/ subdir +# Copyright (C) 2003 Jan Kratochvil +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; exactly version 2 of June 1991 is required +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + + +include $(top_srcdir)/Makefile-head.am + +EXTRA_DIST+= \ + ListItem.pm \ + Index.html.pl diff --git a/project/QueryDev/QueryDev.asm b/project/QueryDev/QueryDev.asm new file mode 100644 index 0000000..fb2521c --- /dev/null +++ b/project/QueryDev/QueryDev.asm @@ -0,0 +1,65 @@ +;DEBUG equ 1 + + include "SSMac.h" + + clistart + + moveq #LDF_VOLUMES+LDF_DEVICES+LDF_READ,d1 + call dos,LockDosList + move.l d0,d1 + move.l d0,d4 + get.l Arg_Volume,d2 + moveq #LDF_VOLUMES,d3 + call FindDosEntry + tst.l d0 + bne.s EntryFound + dtl ,a0 +VolumeError geta Arg_Volume,a1 + jump ss,ExitError + +EntryFound move.l d0,a2 + move.l dl_Task(a2),a2 + moveq #LDF_DEVICES,d2 +NextDevice move.l d4,d1 + call NextDosEntry + dtl ,a0 + move.l d0,d4 + beq.s VolumeError + move.l d0,a0 + cmp.l dvi_Task(a0),a2 + bne.s NextDevice + move.l dvi_Name(a0),d2 + moveq #LDF_VOLUMES+LDF_DEVICES+LDF_READ,d1 + call UnLockDosList + lsl.l #2,d2 + move.l d2,a0 + get.l Arg_VarName,d1 + bne.s SomeVarName + dtl ,a1 + move.l a1,d1 +SomeVarName push d1 + moveq #0,d3 + move.b (a0)+,d3 + move.l a0,d2 + moveq #1,d4 + lsl.l #GVB_GLOBAL_ONLY,d4 + tstv.l Arg_Global + bne.s GlobalVar + lsl.l #GVB_LOCAL_ONLY-GVB_GLOBAL_ONLY,d4 +GlobalVar call SetVar + tst.l d0 + bne.s Return + dtl ,a0 + move.l sp,a1 + jump ss,DosError + +Return addq #4,sp + rts + + tags + template + dv.l Arg_Volume + dv.l Arg_VarName + dv.l Arg_Global + finish + end diff --git a/project/QueryDev/QueryDev.lha b/project/QueryDev/QueryDev.lha new file mode 100644 index 0000000000000000000000000000000000000000..6e9769d48e5454331c58e0214a1e8fa0c188585f GIT binary patch literal 1985 zcmV;y2R`^AQ7vp}H7!>G003|S003iu9UmY82vK!qa(P5$cBHFS1prW_fd>Fl00000 z2LMzm9YZhx00Ayqo7JTV|2CsQu<=F39xM|`G~3kB2B;y?{NLYga0gu{zJa%m_YiO0W!R&qoxdLn&rI#;821^)xPv3qrJYzCQVc2oIa4`n}0+fY6Fs1K;a*pN3S$?2I69lLM z@*q8Ij6XD3i>N%kM-{?HGJ^T35%^>)rz!LQp(#a ztGHEcRa0)d)YY#?bZ>LO7k$XxF*Tth&%{QbjpjhFk&{T>!x7dZxp}v)l27Epv}p>% zrUlr6wk^4t)y5wDdu+sn(GRKn03}~7Y-lwtD*^xjlmq|(SBD)RAOQ?fb!BpSL}hj^ zVRLOT!c_$TP^5te08wNB000L7R3n!*%alFOuX z;NjQ^=QRmX>ri^77MF;-WQ#uSy5#fI9KFl;6nlRDF88uHVt|-|*k&+@gux;w^@$0P zAgzGl1o&9T&+bQsys8h7*S~hu8p=xnG5=;z6X@vfdJaI0#&uWvcuGo{3wTo;xDqBN z&WjF5ghd!$4T`_;OXotL^je&-4-3st9d)9$fXC1TFcSW3rlBP;N9{tG%JbL8`H;ts z@`<;34L-jSyB(j07`Y}k z2KnG{>s-;0Muw$DC306$pcF6eR$CWB2Z?T6+Qn6g;4WD57DEd$F^$s+WlrnR1O6U{ zJWQ%i7--v@c8N9ShE3Y_N%&%*$O~LC&}2+Aau&Df0Q$d4uf@;5Kjb#&Hq&WJra$}V zCc>)9&&xOmT?3fR&MC%q=Pbp2C0AS$9UmY83{iDua(P5$b}nRZV>=X81prW_fd>Fl000002LMzY8bdGu00Wn6 zw~e;kN6x+h;QTU79af7r7zzagIU2Z4oU&%Dcg#^-k|C5z#FE`t=N{sddQCur<^x$8 zPI$O%LPl?nUrjIoe~}kstatz+m4GS_0IjKw;>aQjYXMIV*5QklZO{&s^#wOI&~glbxoJfq)Bi+l)jZdU;SN*EOgSm71o4jR<>IaNjjSRvrH zveW-U)(x^i%M`IJ2Mo$$R~pMuLRJ7m;ZuMbL3J?;0I{yT1B#(@V*@8*UzOIQB0otL zMPn~B+D&_FRf*Dwly?PYFP2hyUq=DTIhk(BUN{L~_!Idhy#eoKy*f=4|Y+fA`kbecE8^@!} z;n~?t$ghC93V58!^XBm6jS^w#S2Mk$!E~jY*xoERbLF;*KDxHi=|m6ClK}Q+ZQ!Xr zIyF)q)ad5wmW{|{F*#AZ8`R45fT-GOhwX!f?=88km*BMxau5h2CBJdU30ov#_!D%h zjm|7%gw~7EXq8Yz;1y#sph5|?i_+y_WbRgN`Ln9V0+Mx2tE_kvcnn47T#P2E5K4-ChFM!@!ZzqkBT!i}6{pWE(#^n{X+>E9;AgE}7 zC7`2scWo0&i1BPn!$~XycV$bt(qTJ$#t<(V2jqQm2q*I?adMzCk4=$qgFc0liAYLx zmtidOqofj{Kj9i5u%<9PgI_#+w$Um{&wzW;SeqJ8Vdu>z^bBSMqsFCj8OXXhWi0 zH!$u<*&f}U*(lnbY_Dhv9#fiA7pjt$oW!sI2G&YE^XiNE T-`Cggp21ynr-WfTe&jU(7s{zI literal 0 HcmV?d00001 -- 1.8.3.1