From 50cbda38c3c5c07c0516b3a284aa8d16d36fd146 Mon Sep 17 00:00:00 2001 From: Robert Sprowson <rsprowson@gitlab.riscosopen.org> Date: Sat, 21 Aug 2010 08:31:14 +0000 Subject: [PATCH] Put some unused files in the attic, unused in 13 years. Not tagged. --- Doc/SprExtend2 | 36 -------------- c/repeat | 130 ------------------------------------------------- w/ZapS-PSS,ffb | Bin 1270 -> 0 bytes w/ZapS-ROJ,ffb | Bin 1261 -> 0 bytes w/ZapS-TD,ffb | Bin 1269 -> 0 bytes 5 files changed, 166 deletions(-) delete mode 100644 Doc/SprExtend2 delete mode 100644 c/repeat delete mode 100644 w/ZapS-PSS,ffb delete mode 100644 w/ZapS-ROJ,ffb delete mode 100644 w/ZapS-TD,ffb diff --git a/Doc/SprExtend2 b/Doc/SprExtend2 deleted file mode 100644 index ebb5ded..0000000 --- a/Doc/SprExtend2 +++ /dev/null @@ -1,36 +0,0 @@ -Subject: SprExtend2 -Author: David De Vorchik -History: - 30-Jan-91 DDeVorchik Created. - 05-Feb-91 DDeVorchik Extended exit params on read size. - -This document covers changes made to SpriteExtend after v0.28, these include -the following: - - * Adding, removing and checking sprite palettes. - - -SpriteReason_CreateRemovePalette --------------------------------- - -in: r0 = 37, SpriteReason_CreateRemovePalette (+0 / +256 / +512) - r1 -> sprite control block - r2 -> sprite name / -> sprite - r3 = reason code - = -1 : read current palette size - = 0 : remove palette from sprite - <> 0 : add palette to sprite - -out: V=1 => r0 -> error block - if r3 =-1 on entry then; r3 = size palette (=0 if none), else all preserved. - r4 -> palette (=0 if none) - r5 = mode - -This call simply adds, removes or returns the size of a palette associated -with a given sprite. - -It should be noted then when output is switched to a sprite and the palette -is added or removed from it the current display pointers will become invalid -so you should switch output away, modify the palete and switch output back -to the sprite. - diff --git a/c/repeat b/c/repeat deleted file mode 100644 index da37117..0000000 --- a/c/repeat +++ /dev/null @@ -1,130 +0,0 @@ -/* Copyright 1996 Acorn Computers Ltd - * - * Licensed under the Apache License, Version 2.0 (the "License"); - * you may not use this file except in compliance with the License. - * You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, software - * distributed under the License is distributed on an "AS IS" BASIS, - * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - * See the License for the specific language governing permissions and - * limitations under the License. - */ -/* c.repeat - simple tool to do a CLI command to each thing in a directory */ - -#include <string.h> -#include <stdlib.h> -#include <stdio.h> -#include <assert.h> - -#include "kernel.h" -#include "swis.h" - -#define _ , -#define ERROR(message) {printf(message); exit(1);} -#define SYSERROR ERROR("Error: %s.\n" _ _kernel_last_oserror()->errmess) -#define CALL(expr) {_kernel_oserror *e_ = (expr); if (e_) ERROR("Error: %s\n" _ e_->errmess)} - -#define BOOL int -#define TRUE 1 -#define FALSE 0 - -static void enumerate(char *pathname, int include, int include_type, void(*callit)(char*,int)) -/* include&1 -> allow directories - include&2 -> allow all files - include&3 -> allow files only of specified type -*/ -{ - char buffer[512]; - int offset = 0; - int entrytype; - int type; - char namebuf[256]; - char *a; - - while (1) - { - CALL(_swix(OS_GBPB,_IN(0)+_IN(1)+_IN(2)+_IN(3)+_IN(4)+_IN(5)+_IN(6)+_OUT(4), - 10, pathname, buffer, 1, offset, 512, 0, &offset)) - if (offset == -1) break; - entrytype = ((int*)buffer)[4]; /* type of directory entry */ - - a = buffer + 20; /* ensure that it is well terminated */ - while (*a > ' ') a++; - *a = 0; - - strcpy(namebuf, pathname); - strcat(namebuf, "."); - strcat(namebuf, buffer + 20); - - if (entrytype == 1) /* it's a file */ - { - type = (((int*)buffer)[0] >> 8) & 0xfff; - if (include&2 || (include&3 && type == include_type)) - /* this = make_dir_entry(buffer + 20, type); */ - callit(namebuf, type); - } - else if (entrytype == 2) /* it's a directory or application */ - { - if (include&1) /* this = make_dir_entry(buffer + 20, -1); */ callit(namebuf, -1); - } - } -} - -static char *command; - -static void obey_it(char *name, int type) -{ - char a[256]; - - /* printf("obey_it %s %i\n", name, type); */ - sprintf(a, "%s %s", command, name); - if (type != -1) - { - system(a); -/* CALL(_swix(OS_CLI, _IN(0), "If \"<Sys$ReturnCode>\"=\"1\" Then Error Error in called program")) */ - CALL(_swix(OS_CLI, _IN(0), "If \"<Sys$ReturnCode>\"=\"1\" Then *Quit")) - } - if (type == -1) enumerate(name, 3, 0, obey_it); -} - -int main(int argc, char **argv) -{ - int arg = 1; - char *options = 0; - char *root = 0; - BOOL loop = FALSE; - BOOL verbose = FALSE; - - command = 0; - while (argv[arg] != 0 && argv[arg][0] != 0) - { - if (argv[arg][0] == '-') options = argv[arg++] + 1; - else if (root == 0) root = argv[arg++]; - else if (command == 0) command = argv[arg++]; - - if (options) - { - while (*options) - { - switch (*options++) - { - case 'L': case 'l': loop = TRUE; break; - case 'V': case 'v': verbose = TRUE; break; - } - } - options = 0; - } - } - - if (verbose) printf("repeat (%s)\n", __DATE__); - if (verbose && root != 0) printf("root=%s\n", root); - if (verbose && command != 0) printf("cmd=%s\n", command); - if (root == 0 || command == 0) ERROR("Syntax: repeat [-l] <rootdir> <command>\n") - - do enumerate(root, 3, 0, obey_it); while (loop); - - return 0; -} diff --git a/w/ZapS-PSS,ffb b/w/ZapS-PSS,ffb deleted file mode 100644 index d8e8d221aa2c118d5e43fffd32957ef772034a0d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1270 zcmZuwzi-n(6!t)cgyao%tR5*tkn*DxRH>9om^1~8Dyia>s@*R3vvb0}Gk0f_Ffw;$ zW=3LT=D%QIV`E104)2^FO$8pD_}+KleeZkUxsFpWp(FE|;>p;+!~Oj|@It8sEoOOP zP-!?Zk?S}cCB3>OobV8Z#s~@#p#n2T@NyQ?&!W<R*R+dE0lTdos9Qj7QK~&SAd=$} zX0m{c%|J*4g+^lG8e*Oz;55YC02dIFfRr;4B22g$S0^oaTEx;U;bOreM~2Y`MqBb3 z$aozJ%q+z}F2O!yWAZ2M_GB_?u}XMLs-&IH+tTe5ztimn-6n}&ZuCny6Dev93f~r7 zQS+l2u$<(DY(%0{HUX)CB?_r#q?JEW+;EXJK+D)nm_lNEQ9{JEQG7(st~<Es3&@3a z0C~s+)Vu)vpa##qzz-Tk(<|ZJAHM9L4dL7y47}dZ?*`BxK&Rh3@`rxEM_<R_^)BF* z-#cmml7BQSoaV}QK~lN(79(pUbr+x=!D@mK6T*J$977)SkQx+8!4iZ-zC$IbFUV14 zT-!No5@{21zl4-$+%QuuUgu+NYBoi8_Djf>OccwkS7R2w0o^(+Oc1gZqlR5nn9)g< z2!#oGhRSvBJ|q7y=7OBH$Hqz$1L>qc!Yl``WuYiDO<S2km@+-C0^~Ydhb4JHWLEz= zkr^{n5pfZwMP$oNYs_f2%H~s(PxVc5eGtGNMbRq~dsQB}&h9POdAjMrA$+N=^-y!2 z<K{20>pO4-zhS)yF{7kcIgvSvdjvkMf8X{RP&>F`MC;~5xXTqTL4k_d6j2m=QiY0Q z1|7SDaM21!CJ1;>S)C&%txJ{%&C?*LaN-)b@_gyHbx1GxrYoG5WE8o@4TO}<5mMHz zXOty6_rnTDH^5HD^K?cxpqhw`=lu}wYK60)Ag8;6-KjwlK_;Uj#l^WFSGf7s|GtUu b)7H|ze-KpteEY|?=Q>|$R^K*$x_|xxno^OR diff --git a/w/ZapS-ROJ,ffb b/w/ZapS-ROJ,ffb deleted file mode 100644 index 7c2d6f03060669ab8076d53e5564f684d2242d04..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1261 zcmZuwF^|(o7<B<cLUMKJO7sz~*hASY2d9-dKsvKz!LUkDynvva*q@yd_KcYsUpACi zQ(sMe(sk7Q3ko_qY9#mE8*k!`1TLJ|-}~OY?|si<5bU&cpzD>9#lq2Vw{GoIlxm~! zvZ@=$#?q0?!XP-`;x=ySNT#eTXVj>S4Y>tVRErcp>&lRxp-XB-H%8ZK#{&lI(%{$I zAUSMlr5mcmij;QLSO$x<l*^KdPg1TONku6Hlv1daX(`>JJ88``0?TeoFV-x2?gSbH zTIv<)d>cx_ZN&fHlD`(t)qm{mEtkuY=!B27DfY_KvFzSad@!CQ<6Vf~G{!AGRV7<X zhF>?*VEFlpL=AbVm_u|amZS}d!Z2!1d-+Qvom9n;tj^t17zW#emNIFbk#jh^?cjPY zf(zRKcqkMNqJ-jPK=+~~PKKbFwDdeaemH%4OwXg)ESen0<AkO&I+#xG$H(z>f~P}@ zCNJo5Jh?w4hJV-<pVY=r0jbh^%b7P4(<SUz&~K1(ApEnfIhDCgF`z0MQ7{$yFE$Eu zQO%~3*6-Ouq)*5%EtRs8PPp#nSw6P5=2LWWzopvf!idUywGinmvZLAb(Ub9mp?_nz z!ZDo!!vzdu69$+5gn67x1zY`@xzT8cNc>T5vvsQ*gTU<i%8Jrb*hQC~Ft~iTg#jS* z;<t(1Lb#4ds<dn}Ul!JKg~b{lP79NEeum|<g!Ylcs44t+ax)BWoC||HKSgwx{u^ut z7=*#$wJ+pfUZ=P8mHG<h0s-&hp=(xGfPAv^@oF@r!R@p8N8eq*z3g!XD>lN12ML^L zlNzLp4tx`ES&zf`iryfir^w~#rKpo#c--OC8LoGG<Fxn2uK7-SoYk-hK1oL@A~|P7 z+`EMc;oQG_9D?t65=FK`@Vi~;{B$JX-u5^TN@{!}JU(%(GOBdel)OIopB{JG`olZ; c-d*1K_Z<S&e=mHx8im1oZ0W=K&*8WK0q!e{8UO$Q diff --git a/w/ZapS-TD,ffb b/w/ZapS-TD,ffb deleted file mode 100644 index a4c02169f1565475dc1f2955b3bd234f34817dc8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1269 zcmZuwzmL>L7<Ca8DUv&q5`8Qb7io8o9}&_4Ct;2~VsY6!otGf!X6?`35%!Fk8MC*P zsi~={k?5%TFDTN{Q6sre-uQOSqQr%FJ>Q!*?|a{yFbH;9I?(mX$YSB>`rh6xic)P9 z7OT2(Y%CqQEDVAREnbtBj%3Qpaz>5H*pOQ=MYTxrv#t#3PwbLf(T(vn+VOzFx-|Ip z4oD7LTIq%=u_C1%HI~65E#<Og;<J=%M^aG=0i_fwWm-zN=uTSmjKMN$>FJt9&z-;q zfi3llbiNHG;WpxbYso(g=jz+LyUXQrEIQ$1ZHnFUye+$X6dz2c$z%lan~iZxk5$Rm zlHnJPG-!UlB2hzLD&`PfiX~}7qA-k_(_a44NGDY>B&&0`6o$d}u%%2|XXG5tZacW{ zi{QdG03HfOgD9am8PNSGiIX8{rY${*XTKjmp3#%&^fa2z;z>fsr*v>UeGt#$<0-xl zDVjc|NAdK*kQn}9R(w_)-vy*f?=5HENOYI5A3;As%7O6Tw&qmkGDU-`XhgwO=$C91 z`l6amC9R*cg-D-}t1XqXl1{j8@moH&rsh-h(_Txp(S;F}_i7>1=VZqxjZ0EdayImf zhAW)Zi7;HiGd5vx@gDr+Tq-#0kIjt+19ak#a+|?h-56wM<SQ#mOJNsXfWqL?ehUvk z=JjtAxrJ~YkyL5fWWFq{<qESkKA#po?fe4QPZPR@C`L`;ugc9ZxbZ_6-2FMCeR@Bz z<Jlia8PA(y5C(^%FXWf6(QEojsP+9(E)euCCc0*I8Q_zhPgkNL4eosB!}$9LxMw}C zV8urG5Fv?EZBm1j(ShFqT-M{@fudK4>N#>bekST<bdn?;PJP4mmT&C#2H7>=S&y?C zKEW*MC`B~qjHr9d5G9=ZSC7L5@PmmWTj2t91JU_;Kft~2aUPV^xGFq3bF4C|bk>x- mKKD(JJKy@hZ}7dnwDIph2vpzw`1h443_f5~A1{0k|M?e=d65bL -- GitLab