debian/0000755000000000000000000000000011472014735007172 5ustar debian/aribas.docs0000644000000000000000000000003610771017222011277 0ustar doc/aribas.tut doc/aribas.doc debian/changelog0000644000000000000000000001760011472001665011046 0ustar aribas (1.64-5) unstable; urgency=low * Remove dependency on emacsen-common, do not byte-compile aribas.el. Justifaction: debian emacs policy section 5, "Packages with only marginal emacs relevance". Also drop "Suggests: emacsen". * Rename some directories under debian/ according to debhelper(7). -- Ralf Treinen Sat, 20 Nov 2010 18:21:54 +0100 aribas (1.64-4) unstable; urgency=low * Pre-Depend on emacsen-common instead of just Depends, to fix an error occuring when upgrading from an earlier version of aribas that does not depend on emacsen-common (closes: Bug#603788). * Standards-Version 3.9.1 (no change). -- Ralf Treinen Thu, 18 Nov 2010 21:35:30 +0100 aribas (1.64-3) unstable; urgency=low * debian/rules: - use the standard Makefile on non-i386 architectures. - use dh_install to install files - use dh_installchangelogs to install upstream changelog * Apply upstream's patch to fix warnings about casting from pointer to integer of different size on 64bit architectures: debian/patches/casting_pointers -- Ralf Treinen Wed, 10 Feb 2010 21:24:43 +0100 aribas (1.64-2) unstable; urgency=low * use improved manpage sent in by upstream author (patch manpage-improved, replaces the patch manpage-dashes). -- Ralf Treinen Wed, 03 Feb 2010 20:50:33 +0100 aribas (1.64-1) unstable; urgency=low * New upstream release * Patch manpage-dashes: escape dashes in manpage. * Standards-version 3.8.4 (no change) -- Ralf Treinen Thu, 28 Jan 2010 21:48:20 +0100 aribas (1.63-5) unstable; urgency=low * Build-depend on ${misc:Depends} -- Ralf Treinen Mon, 11 Jan 2010 19:55:26 +0100 aribas (1.63-4) unstable; urgency=low * Convert to source format 3.0 (quilt) : - no longer build-depends on dpatch - no patching in debian/rules - debian/patches converted to quilt style - added debian/source/format * debian/watch: use passive ftp mode (closes: Bug#552545). * Debhelper compatibility level 7. - call dh_prep instead of dh_clean -k * Standards-version 3.8.3 (no change) * debian/copyright: - add that users are free to choose a version of GPL later than 2 - point to versionend GPL-2 file. -- Ralf Treinen Sat, 21 Nov 2009 14:46:14 +0100 aribas (1.63-3) unstable; urgency=low * Add dependency on emacsen-common (closes: Bug#503323). * Do not mention homepage in long description. * Standards-Version 3.8.0 (no change). -- Ralf Treinen Sat, 25 Oct 2008 12:09:31 +0200 aribas (1.63-2) unstable; urgency=low * debian/control: add a Homepage field. * debian/rules: fix bashism (closes: Bug#478360). -- Ralf Treinen Wed, 30 Apr 2008 22:57:07 +0200 aribas (1.63-1) unstable; urgency=low * New upstream release. * debian/copyright: put a proper copyright notice. * debian/doc-base.aribas: place files in section Science/Mathematics. * Standards-Version 3.7.3 (no change). -- Ralf Treinen Fri, 21 Mar 2008 21:54:39 +0100 aribas (1.62-1) unstable; urgency=low * New upstream release -- Ralf Treinen Sun, 02 Dec 2007 20:55:11 +0100 aribas (1.61-1) unstable; urgency=low * New upstream release * Correct url in debian/watch -- Ralf Treinen Sun, 09 Sep 2007 19:53:24 +0200 aribas (1.53-2) unstable; urgency=low * debian watch file version 3, check for upstream tar ball linked from the download web page. * Use dpatch to manage patches * Patch 01_no-strip: do not strip executable in Makefile (closes: Bug#436470) * Standards-Version 3.7.2 (no change) -- Ralf Treinen Sat, 25 Aug 2007 10:10:30 +0200 aribas (1.53-1) unstable; urgency=low * New upstream release -- Ralf Treinen Wed, 29 Dec 2004 16:40:47 +0100 aribas (1.52-1) unstable; urgency=low * New upstream release -- Ralf Treinen Wed, 10 Nov 2004 19:55:08 +0100 aribas (1.51-1) unstable; urgency=low * New upstream release * Adapted to new name of upstream changelog log -- Ralf Treinen Wed, 27 Oct 2004 07:46:39 +0200 aribas (1.50-1) unstable; urgency=low * New upstream release * Adapted to new name of upstream changelog file * Switched from dh_installmanpages to dh_installman -- Ralf Treinen Sun, 15 Aug 2004 09:12:55 +0200 aribas (1.44-2) unstable; urgency=low * Refined build-dependency on debhelper to >= 4 * Added debian/watch file -- Ralf Treinen Thu, 5 Aug 2004 12:39:40 +0200 aribas (1.44-1) unstable; urgency=low * New upstream release -- Ralf Treinen Wed, 21 Jan 2004 09:09:23 +0100 aribas (1.40-1) unstable; urgency=low * New upstream release. * Standards-Version 3.6.1: Honor noopt in the value of DEB_BUILD_OPTIONS. * Replace DH_COMPAT variable in debian/rules by file debian/compat, set to level 4. * Simplify option passing to make, using upstream's new compile instructions. -- Ralf Treinen Tue, 30 Sep 2003 22:50:29 +0200 aribas (1.30-1) unstable; urgency=low * New upstream release. * Removed debian/aribas.1 since upstream has now incorporated and extended our manpage. * Added "Suggests: emacsen". * Install the upstream CHANGES file /usr/share/doc/aribas. -- Ralf Treinen Tue, 14 May 2002 21:28:49 +0200 aribas (1.20-2) unstable; urgency=low * Standards-veriosn 3.5.6.0 * DH_COMPAT=3. This marks all files in /etc as conffiles (closes: Bug#132151). * Some cleanup in debian/rules. -- Ralf Treinen Sun, 3 Feb 2002 22:10:34 +0100 aribas (1.20-1) unstable; urgency=low * New upstream release. * Activated installation of emacs startup file for aribas * Completely rewrote the man page, using lots of stuff from the documentation. * Removed /usr/share/doc/aribas/aribas-emacs-mode.doc (this info is now in the man page). -- Ralf Treinen Sat, 10 Feb 2001 15:35:14 +0100 aribas (1.14-3) unstable; urgency=low * Adopting the package (Closes: #68301) * moved rules to debhelper, use proper architecture test (Closes: #54584). * added build-depends: debhelper * added debian/dirs and debian/docs * moved emacs mode to where it belongs * added doc-base (for tutorial and doc in ascii) * moved to Standards-Version 3.1.1. * debian/copyright: Added Upstream Author, proper reference to GPL v2 * moved doc from /usr/doc/aribas to /usr/share/doc/aribas * Removed debian/NOTES.debian * created debian/aribas-emacs-mode.doc, to be installed in /usr/share/docs/aribas. -- Ralf Treinen Sat, 13 Jan 2001 22:35:17 +0100 aribas (1.14-2) unstable; urgency=low * Maintainer set to Debian QA Group. * Removed README.debian. * Removed the emacs config directives from debian/changelog. -- Martin Michlmayr Fri, 22 Dec 2000 15:49:03 +0100 aribas (1.14-1) unstable; urgency=low * New upstream source -- John Lapeyre Sat, 26 Jun 1999 23:37:57 -0700 aribas (1.08b-5) unstable; urgency=low * Allow mulitple archs. -- John Lapeyre Thu, 17 Sep 1998 15:20:15 -0700 aribas (1.08b-4) unstable; urgency=low * Changed description. -- John Lapeyre Wed, 12 Aug 1998 18:12:21 -0700 aribas (1.08b-3) unstable; urgency=low * Made help file visible. -- John Lapeyre Wed, 29 Jul 1998 22:16:52 -0700 aribas (1.08b-2) unstable; urgency=low * distribution 'main' does not exist -- John Lapeyre Tue, 28 Jul 1998 13:35:01 -0700 aribas (1.08b-1) main; urgency=low * Initial Release. -- John Lapeyre Fri, 24 Jul 1998 15:05:14 -0700 debian/aribas.doc-base0000644000000000000000000000040611301775362012033 0ustar Document: aribas Title: Aribas Author: Otto Forster Abstract: The Aribas Documentation and Tutorial Section: Science/Mathematics Format: text Files: /usr/share/doc/aribas/aribas.doc.gz /usr/share/doc/aribas/aribas.tut.gz debian/source/0000755000000000000000000000000011301775422010470 5ustar debian/source/format0000644000000000000000000000001411301771733011677 0ustar 3.0 (quilt) debian/rules0000755000000000000000000000223111334611463010246 0ustar #!/usr/bin/make -f # debian/rules for aribas #export DH_VERBOSE=1 ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS))) OPTFLAGS=-O0 else OPTFLAGS=-O endif build: build-stamp build-stamp: if [ "$(DEB_BUILD_ARCH)" = "i386" ];\ then \ cp src/LINUX/arito386.S src;\ MAKEFILE=LINUX/Makefile.linux;\ ASSOBJECTS="arito386.S";\ EXTRAFLAGS="-DLiNUX -DPROTO";\ else \ MAKEFILE=Makefile;\ ASSOBJECTS="";\ EXTRAFLAGS="-DUNiX -DPROTO";\ fi;\ cd src && make -f $$MAKEFILE\ CC=gcc\ CFLAGS="$(OPTFLAGS) $$EXTRAFLAGS"\ ASSOBJECTS="$$ASSOBJECTS" touch build-stamp clean: dh_testdir dh_testroot rm -f build-stamp cd src; make clean; rm -f aribas arito386.S dh_clean install: build dh_testdir dh_testroot dh_prep dh_installdirs dh_install binary-indep: build install binary-arch: build install dh_testdir dh_testroot dh_installdocs dh_installexamples examples/* dh_installemacsen dh_installman doc/aribas.1 dh_installchangelogs CHANGES*.txt dh_strip dh_compress dh_fixperms dh_installdeb dh_shlibdeps dh_gencontrol dh_md5sums dh_builddeb binary: binary-indep binary-arch .PHONY: build clean binary-indep binary-arch binary install debian/watch0000644000000000000000000000016211301752243010214 0ustar version=3 opts=pasv ftp://ftp.mathematik.uni-muenchen.de/pub/forster/aribas/UNIX_LINUX/aribas-([\.\d]*)\.tar\.gz debian/copyright0000644000000000000000000000113611301767460011127 0ustar This package was debianized by John Lapeyre lapeyre@physics.arizona.edu on Fri, 24 Jul 1998 15:10:47 -0700 It was downloaded from http://www.mathematik.uni-muenchen.de/~forster Author: Otto Forster Copyright (C) 1996-2008 Otto Forster Licence: You are free to distribute this software under the terms of the GNU General Public License, either version 2 of the License, or (at the users option) any later version. On Debian systems, the complete text of the GNU General Public License version 2 can be found in the /usr/share/common-licenses/GPL-2 file. debian/patches/0000755000000000000000000000000011334613074010617 5ustar debian/patches/casting_pointers0000644000000000000000000006210311334612666014125 0ustar Author: Otto Forster Description: fix warnings about cast from pointer to integer of different size on 64 bit architecture. Index: aribas-1.64/src/alloc.c =================================================================== --- aribas-1.64.orig/src/alloc.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/alloc.c 2010-02-10 21:20:13.000000000 +0100 @@ -41,6 +41,7 @@ ** 1997-12-26 small changes in iniconfig ** 1998-01-06 fixed small bug in moveobj ** 2002-04-05 changed some configuration constants +** 2010-01-30 ArrayStack */ #include "common.h" @@ -63,6 +64,7 @@ #define BLOCK0SIZE SMALL_BLOCK0SIZE #define BLOCKSIZE SMALL_BLOCKSIZE #define RESERVE 6000 /* soviel Bytes sollen freibleiben */ +#define ARRAYSTKSIZE SMALL_BLOCKSIZE #define WORKSTKSIZE 6000 /* size of evaluation+work stack (word4's) */ #define ARGSTKSIZE 7000 /* size of argument+save stack (word4's) */ @@ -72,12 +74,13 @@ #include #define HASHTABSIZE 1009 /* size of hash table (prime) */ -#define BLOCKMAX 192 /* must be < 255 */ +#define BLOCKMAX 200 /* must be < 255 */ #define BLOCK0SIZE BIG_BLOCK0SIZE #define BLOCKSIZE BIG_BLOCKSIZE -#define RESERVE 16000 -#define WORKSTKSIZE BIG_BLOCKSIZE -#define ARGSTKSIZE 16000 +#define RESERVE BIG_BLOCK0SIZE +#define WORKSTKSIZE BIG_BLOCK0SIZE +#define ARRAYSTKSIZE BIG_BLOCKSIZE +#define ARGSTKSIZE BIG_BLOCK0SIZE #ifdef MEM #if (MEM >= 1) && (MEM <= 32) @@ -121,7 +124,8 @@ PUBLIC trucptr *Symtab; /* symbol table */ PUBLIC size_t hashtabSize; PUBLIC truc *WorkStack; /* evaluation stack (also work stack) */ -PUBLIC truc *evalStkPtr, *workStkPtr; +PUBLIC truc *ArrayStack, *ArrayStkCeil; +PUBLIC truc *evalStkPtr, *workStkPtr, *arrayStkPtr; PUBLIC truc *ArgStack; /* argument stack (also save stack) */ PUBLIC truc *argStkPtr, *saveStkPtr; PUBLIC truc *basePtr; @@ -161,7 +165,7 @@ PRIVATE size_t symBot, userBot; PRIVATE size_t memBot, memCeil; -PRIVATE size_t argstkSize, workstkSize, blockSize, block0Size; +PRIVATE size_t argstkSize, workstkSize, arrstkSize, blockSize, block0Size; PRIVATE int curblock, noofblocks, auxindex0, maxblocks; PRIVATE blkdesc blockinfo[BLOCKMAX+1]; @@ -185,6 +189,7 @@ PRIVATE void endgc _((void)); PRIVATE void mvsymtab _((void)); PRIVATE void mvargstk _((void)); +PRIVATE void mvarrstk _((void)); PRIVATE void mvevalstk _((void)); PRIVATE void moveobj _((truc *x)); PRIVATE int toupdate _((truc *x)); @@ -215,6 +220,7 @@ #endif argstkSize = ARGSTKSIZE; workstkSize = WORKSTKSIZE; + arrstkSize = ARRAYSTKSIZE; hashtabSize = HASHTABSIZE; aribufSize = ARIBUFSIZE; blockSize = BLOCKSIZE; @@ -303,6 +309,13 @@ } if(ptr) { WorkStack = (truc *)ptr; + size = sizeof(truc) * arrstkSize; + memallsize += size; + ptr = malloc(size); + } + if(ptr) { + ArrayStack = (truc *)ptr; + ArrayStkCeil = ArrayStack + arrstkSize; size = sizeof(word2)*(aribufSize + PRIMTABSIZE + 16); memallsize += size; ptr = malloc(size); @@ -384,6 +397,7 @@ free(Symbol); free(AriBuf); free(WorkStack); + free(ArrayStack); free(ArgStack); free(Symtab); } @@ -392,6 +406,7 @@ { workStkPtr = WorkStack - 1; evalStkPtr = WorkStack + workstkSize; + arrayStkPtr= ArrayStack - 1; argStkPtr = ArgStack - 1; saveStkPtr = ArgStack + argstkSize; basePtr = ArgStack; @@ -603,8 +618,8 @@ else { nact += c - b; if(flg < FULL) { - b = (i == curblock ? memBot : blockinfo[i].curbot); - nfree += c - b; + b = (i == curblock ? memBot : blockinfo[i].curbot); + nfree += c - b; } } } @@ -623,18 +638,20 @@ diff = s[1] - s[2]; n = s2form(OutBuf,"~8D Bytes reserved; ~D Bytes active ", - (wtruc)s[0],(wtruc)s[1]); - s2form(OutBuf+n,"(~D used, ~D free)",(wtruc)diff,(wtruc)s[2]); + intcast(s[0]),intcast(s[1])); + s2form(OutBuf+n,"(~D used, ~D free)",intcast(diff),intcast(s[2])); fprintline(tstdout,OutBuf); s1form(OutBuf, - "~8D Bytes free for user defined symbols and symbol names", (wtruc)s[3]); + "~8D Bytes free for user defined symbols and symbol names", + intcast(s[3])); fprintline(tstdout,OutBuf); } /*---------------------------------------------------------*/ PRIVATE void gcstatistics() { fnewline(tstdout); - s1form(OutBuf,"total number of garbage collections: ~D", (wtruc)gccount); + s1form(OutBuf,"total number of garbage collections: ~D", + intcast(gccount)); fprintline(tstdout,OutBuf); } /*---------------------------------------------------------*/ @@ -792,6 +809,7 @@ if(mode > 0) { mvargstk(); mvevalstk(); + mvarrstk(); } endgc(); @@ -859,6 +877,15 @@ moveobj(ptr); } /*------------------------------------------------------------*/ +PRIVATE void mvarrstk() +{ + truc *ptr; + + ptr = ArrayStack - 1; + while(++ptr <= arrayStkPtr) + moveobj(ptr); +} +/*------------------------------------------------------------*/ PRIVATE void mvevalstk() { truc *ptr; Index: aribas-1.64/src/arity.c =================================================================== --- aribas-1.64.orig/src/arity.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/arity.c 2010-02-10 21:20:16.000000000 +0100 @@ -2,7 +2,7 @@ /* file arity.c ARIBAS interpreter for Arithmetic -Copyright (C) 1996-2007 O.Forster +Copyright (C) 1996-2010 O.Forster 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 @@ -490,7 +490,7 @@ { char messbuf[80]; - s1form(messbuf,"~D",(wtruc)v); + s1form(messbuf,"~D",intcast(v)); fprintstr(tstdout,messbuf); fflush(stdout); } @@ -517,7 +517,7 @@ w = bmp->rank; w *= 100; w /= bmp->baslen; - s2form(messbuf,"[~D/~D%]",(wtruc)z,(wtruc)w); + s2form(messbuf,"[~D/~D%]",intcast(z),intcast(w)); fprintstr(tstdout,messbuf); fflush(stdout); } @@ -529,7 +529,7 @@ { char messbuf[80]; - s1form(messbuf,"~%factor found after ~D iterations",(wtruc)anz); + s1form(messbuf,"~%factor found after ~D iterations",intcast(anz)); fprintline(tstdout,messbuf); fnewline(tstdout); } @@ -540,7 +540,7 @@ char messbuf[80]; s2form(messbuf,"~%CF-algorithm: factorbase 2 ... ~D of length ~D", - (wtruc)p,(wtruc)blen); + intcast(p),intcast(blen)); fprintline(tstdout,messbuf); fprintstr(tstdout,"working "); } @@ -553,7 +553,7 @@ s2form(messbuf, "~%~D quadratic residues calculated, ~D completely factorized", - (wtruc)n,(wtruc)nf); + intcast(n),intcast(nf)); fprintline(tstdout,messbuf); fnewline(tstdout); } @@ -563,10 +563,10 @@ { char messbuf[80]; - s1form(messbuf,"~%quadratic sieve length = ~D, ",(wtruc)(2*srange)); + s1form(messbuf,"~%quadratic sieve length = ~D, ",intcast(2*srange)); fprintstr(tstdout,messbuf); s2form(messbuf,"factorbase 2 ... ~D of length ~D", - (wtruc)p,(wtruc)blen); + intcast(p),intcast(blen)); fprintline(tstdout,messbuf); fprintstr(tstdout,"working "); } @@ -579,7 +579,7 @@ s2form(messbuf, "~%~D polynomials, ~D completely factorized quadratic residues", - (wtruc)n,(wtruc)nf); + intcast(n),intcast(nf)); fprintline(tstdout,messbuf); fnewline(tstdout); } @@ -592,11 +592,11 @@ { char messbuf[80]; - s2form(messbuf,"~%~D polynomials, ~D + ",(wtruc)n,(wtruc)(nf-nf2)); + s2form(messbuf,"~%~D polynomials, ~D + ",intcast(n),intcast(nf-nf2)); fprintstr(tstdout,messbuf); s2form(messbuf,"~D = ~D factorized quadratic residues", - (wtruc)nf2,(wtruc)nf); + intcast(nf2),intcast(nf)); fprintline(tstdout,messbuf); fnewline(tstdout); } @@ -609,7 +609,7 @@ char messbuf[80]; s1form(messbuf,"~%EC factorization with prime bound ~D ~%working ", - (wtruc)bound); + intcast(bound)); fprintstr(tstdout,messbuf); } /*------------------------------------------------------------------*/ @@ -620,7 +620,7 @@ s2form(messbuf, "~%EC factorization, prime bound ~D, bigprime bound ~D~%working ", - (wtruc)bound1, (wtruc)bound2); + intcast(bound1), intcast(bound2)); fprintstr(tstdout,messbuf); } /*------------------------------------------------------------------*/ @@ -631,7 +631,7 @@ s2form(messbuf, "~%factor found with curve parameter ~D and prime bound ~D~%", - (wtruc)u,(wtruc)bound1); + intcast(u),intcast(bound1)); fprintline(tstdout,messbuf); } /*------------------------------------------------------------------*/ @@ -642,7 +642,7 @@ s2form(messbuf, "~%factor found with curve parameter ~D and bigprime ~D~%", - (wtruc)u,(wtruc)bound2); + intcast(u),intcast(bound2)); fprintline(tstdout,messbuf); } /*------------------------------------------------------------------*/ @@ -1324,20 +1324,6 @@ return(0); } /*-------------------------------------------------------------------*/ -#ifdef DBGFILE -int showvect(vect,len) -word2 *vect; -int len; -{ - int i; - fprintf(dbgf,"0x"); - for(i=len-1; i>=0; i--) - fprintf(dbgf,"%04X",vect[i]); - fprintf(dbgf,"\n"); - return len; -} -#endif -/*-------------------------------------------------------------------*/ /* ** Rueckgabe = 0, falls letzte Zeile unabhaengig; sonst = 1 */ Index: aribas-1.64/src/aritz.c =================================================================== --- aribas-1.64.orig/src/aritz.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/aritz.c 2010-02-10 21:20:17.000000000 +0100 @@ -2,7 +2,7 @@ /* file aritz.c ARIBAS interpreter for Arithmetic -Copyright (C) 1996-2007 O.Forster +Copyright (C) 1996-2010 O.Forster 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 Index: aribas-1.64/src/common.h =================================================================== --- aribas-1.64.orig/src/common.h 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/common.h 2010-02-10 21:20:18.000000000 +0100 @@ -50,6 +50,7 @@ ** 2001-03-30 Win32GUI, genWinGUI ** 2002-03-27 WORKnpush, VECSTRUCTPTR ** 2002-10-01 deleted some superfluous #define's +** 2010-02-06 SAVEPTRpush, etc. */ #include @@ -189,7 +190,7 @@ #define FPREC_HIGH #endif -#define VERSION_STRING "V 1.64, Jan. 2010" +#define VERSION_STRING "V 1.64a, Feb. 2010" #define VERSION_YEAR "2010" #define VERSION_NO 164 @@ -802,6 +803,8 @@ if(!((workStkPtr += (n)) < evalStkPtr)) reset(err_wrkstk) #define WORKspace(n) \ (workStkPtr < evalStkPtr-(n)-32 ? workStkPtr += (n) : NULL) +#define ARRAYspace(n) \ + (arrayStkPtr < ArrayStkCeil-(n)-32 ? arrayStkPtr += (n) : NULL) #define ARGpush(obj) \ if(++argStkPtr < saveStkPtr) *argStkPtr = (obj); \ @@ -810,13 +813,11 @@ #define ARGpop() argStkPtr-- #define ARGnpop(n) argStkPtr -= (n) -#define SAVEpush(obj) \ - if(--saveStkPtr > argStkPtr) *saveStkPtr = (truc)(obj); \ +#define SAVEPTRpush(ptr) \ + if(--saveStkPtr > argStkPtr) *saveStkPtr = (truc)(ptr - ArgStack); \ else reset(err_savstk) -#define SAVEretr() (trucptr)(*saveStkPtr++) -#define SAVEpop() saveStkPtr++ -#define SAVEtop() (trucptr)(*saveStkPtr) -#define SAVEnpop(n) saveStkPtr += (n) +#define SAVEPTRretr() (ArgStack + *saveStkPtr++) +#define SAVEPTRtop() (ArgStack + *saveStkPtr) #define SAVEspace(n) \ (saveStkPtr > argStkPtr+(n) ? saveStkPtr -= (n) : NULL) @@ -882,7 +883,8 @@ extern truc *Symbol; extern truc *Memory[]; extern trucptr *Symtab; -extern truc *WorkStack, *evalStkPtr, *workStkPtr; +extern truc *ArrayStack, *ArrayStkCeil, *arrayStkPtr; +extern truc *WorkStack, *evalStkPtr, *workStkPtr; extern truc *ArgStack, *argStkPtr, *saveStkPtr; extern truc *basePtr; extern word2 *AriBuf, *AriScratch, *AuxBuf, *PrimTab; @@ -1230,6 +1232,8 @@ extern void fnewline _((truc strom)); extern void ffreshline _((truc strom)); extern void flinepos0 _((truc strom)); +extern wtruc strcast _((char *str)); +extern wtruc intcast _((long x)); extern int s1form _((char *buf, char *fmt, wtruc dat)); extern int s2form _((char *buf, char *fmt, wtruc dat1, wtruc dat2)); Index: aribas-1.64/src/control.c =================================================================== --- aribas-1.64.orig/src/control.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/control.c 2010-02-10 21:20:18.000000000 +0100 @@ -879,7 +879,7 @@ } n0 = bigref(argStkPtr,&x,&sign); /* start */ m = (n0 < inclen ? inclen : n0) + 3; - slen = (m + inclen)/2 + 2; /* unit of SaveStack is word4 */ + slen = (m + inclen)/2 + 2; /* unit of SaveStack is word4???? */ lauf = (word2 *)SAVEspace(slen); if(lauf) { cpyarr(x,n0,lauf); @@ -1037,13 +1037,13 @@ x = tim[0] + 1900; y = tim[1] + 1; str = OutBuf; - str += s2form(str,"~04D:~02D:", (wtruc)x,(wtruc)y); + str += s2form(str,"~04D:~02D:", intcast(x),intcast(y)); x = tim[2]; y = tim[3]; - str += s2form(str,"~02D:~02D:",(wtruc)x,(wtruc)y); + str += s2form(str,"~02D:~02D:",intcast(x),intcast(y)); x = tim[4]; y = tim[5]; - s2form(str,"~02D:~02D",(wtruc)x,(wtruc)y); + s2form(str,"~02D:~02D",intcast(x),intcast(y)); return mkstr(OutBuf); } Index: aribas-1.64/src/eval.c =================================================================== --- aribas-1.64.orig/src/eval.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/eval.c 2010-02-10 21:20:20.000000000 +0100 @@ -205,13 +205,13 @@ } else chk = 0; - SAVEpush(argStkPtr); + SAVEPTRpush(argStkPtr); k = *VARCPTR(ptr); if(chk) { /* provide default optional arguments */ ptr1 = VECTORPTR(PARMSPTR(ptr)); argvarspace(ptr1,n,VARSPTR(ptr),k); - ptr1 = SAVEtop() + 1; + ptr1 = SAVEPTRtop() + 1; ptr2 = ARG1PTR(evalStkPtr); while(--i >= 0) *ptr1++ = *ptr2++; @@ -223,14 +223,14 @@ if(flg == sVFUNCTION) { parms = *PARMSPTR(ptr); - ptr = SAVEtop() + 1; + ptr = SAVEPTRtop() + 1; n = evalvargs(parms,ptr,n); } else { - ptr = SAVEtop() + 1; + ptr = SAVEPTRtop() + 1; n = evalargs(ptr,n); } - SAVEpush(basePtr); + SAVEPTRpush(basePtr); basePtr = ptr; if(n == aERROR || lvarsini(ptr+n,k) == aERROR) obj = brkerr(); @@ -248,8 +248,8 @@ } } } - basePtr = SAVEretr(); - argStkPtr = SAVEretr(); + basePtr = SAVEPTRretr(); + argStkPtr = SAVEPTRretr(); break; case fWHILEXPR: obj = Swhile(); @@ -292,11 +292,11 @@ } goto cleanup; fnbineval: - SAVEpush(argStkPtr); + SAVEPTRpush(argStkPtr); ptr = TAddress(evalStkPtr); k = stkevargs(ptr+1); obj = (k == aERROR ? brkerr() : ((funptr1)binfun)(k)); - argStkPtr = SAVEretr(); + argStkPtr = SAVEPTRretr(); cleanup: EVALpop(); return(obj); @@ -318,16 +318,17 @@ int k; fundefptr = TAddress(fun); - SAVEpush(argStkPtr); - SAVEpush(basePtr); + SAVEPTRpush(argStkPtr); + SAVEPTRpush(basePtr); basePtr = argStkPtr + 1; k = *VARCPTR(fundefptr); argvarspace(arr,n,VARSPTR(fundefptr),k); EVALpush(*(fundefptr + OFFS4body)); - if(lvarsini(basePtr+n,k) == aERROR) + if(lvarsini(basePtr+n,k) == aERROR) { obj = brkerr(); + } else { /* eval body, which is a compound statement */ obj = zero; k = *FUNARGCPTR(evalStkPtr); @@ -343,8 +344,8 @@ } } EVALpop(); - basePtr = SAVEretr(); - argStkPtr = SAVEretr(); + basePtr = SAVEPTRretr(); + argStkPtr = SAVEPTRretr(); return(obj); } /*------------------------------------------------------------*/ Index: aribas-1.64/src/file.c =================================================================== --- aribas-1.64.orig/src/file.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/file.c 2010-02-10 21:20:21.000000000 +0100 @@ -176,7 +176,7 @@ findarifile(argv[0],name); if(verbose) { - s1form(OutBuf,"(** loading file ~A **)",(wtruc)name); + s1form(OutBuf,"(** loading file ~A **)",strcast(name)); fprintline(tstdout,OutBuf); } Index: aribas-1.64/src/LINUX/Makefile.linux =================================================================== --- aribas-1.64.orig/src/LINUX/Makefile.linux 2010-02-10 21:17:30.000000000 +0100 +++ aribas-1.64/src/LINUX/Makefile.linux 2010-02-10 21:19:22.000000000 +0100 @@ -13,8 +13,8 @@ ASSFLAGS = -v -MEMFLAG1 = -DMEM=16 -# MEM may be set to any integer value from 1 to 32. +MEMFLAG1 = -DMEM=8 +# MEM may be set to any integer value from 1 to 16. # This is the size of the ARIBAS heap in Megabytes # The value should not exceed one half of the RAM of your machine # If MEMFLAG is not defined, MEM=2 will be used by default @@ -48,7 +48,7 @@ $(PROGRAM): $(OBJECTS) $(ASSOBJECTS) $(CC) -o $(PROGRAM) $(LFLAGS) $(OBJECTS) $(ASSOBJECTS) - + strip $(PROGRAM) clean: \rm *.o Index: aribas-1.64/src/LINUX/README =================================================================== --- aribas-1.64.orig/src/LINUX/README 2010-02-10 21:17:30.000000000 +0100 +++ aribas-1.64/src/LINUX/README 2010-02-10 21:19:23.000000000 +0100 @@ -1,12 +1,12 @@ ###################################################################### -# README file for the directory aribas-1.64/src/LINUX +# README file for the directory aribas-1.63/src/LINUX # Author: O.Forster # Email: forster@mathematik.uni-muenchen.de # Web: http://www.mathematik.uni-muenchen.de/~forster -# Date: 2010-01-25 +# Date: 2008-02-22 ###################################################################### -COMPILATION of ARIBAS (V. 1.64, January 2010) +COMPILATION of ARIBAS (V. 1.63, February 2008) To compile ARIBAS for LINUX on a 80386 (or higher) computer, the following 26 files are necessary. Index: aribas-1.64/src/mainloop.c =================================================================== --- aribas-1.64.orig/src/mainloop.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/mainloop.c 2010-02-10 21:20:22.000000000 +0100 @@ -2,7 +2,7 @@ /* file mainloop.c ARIBAS interpreter for Arithmetic -Copyright (C) 1996-2010 O.Forster +Copyright (C) 1996-2008 O.Forster 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 @@ -571,10 +571,10 @@ PRIVATE void title() { s2form(OutBuf,"~%ARIBAS Interpreter for Arithmetic, ~A (~A)", - (wtruc)Version,(wtruc)architec); + strcast(Version),strcast(architec)); fprintline(tstdout,OutBuf); s2form(OutBuf,"Copyright (C) 1996-~A O.Forster <~A>", - (wtruc)versionyear,(wtruc)Email); + strcast(versionyear),strcast(Email)); fprintline(tstdout,OutBuf); displaypage(gpltxt); fnewline(tstdout); @@ -593,12 +593,12 @@ ret = findarifile(fil,name); if(verb) { fnewline(tstdout); - s1form(OutBuf,"(** loading ~A **)",(wtruc)name); + s1form(OutBuf,"(** loading ~A **)",strcast(name)); fprintline(tstdout,OutBuf); } ret = loadaux(name,verb,NULL); if(ret == aERROR) { - s1form(OutBuf,"error while loading file ~A",(wtruc)name); + s1form(OutBuf,"error while loading file ~A",strcast(name)); fprintline(tstderr,OutBuf); } return(ret); @@ -660,7 +660,7 @@ { if(argn == 0 || *argStkPtr != zero) { s2form(OutBuf,"ARIBAS Version ~A (~A)", - (wtruc)Version,(wtruc)architec); + strcast(Version),strcast(architec)); fprintline(tstdout,OutBuf); } return(mkfixnum(version_no)); @@ -955,7 +955,7 @@ } } else { - s1form(OutBuf,"no help available for ~A",(wtruc)topic); + s1form(OutBuf,"no help available for ~A",strcast(topic)); fprintline(tstdout,OutBuf); } fclose(hfile); Index: aribas-1.64/src/Makefile =================================================================== --- aribas-1.64.orig/src/Makefile 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/Makefile 2010-02-10 21:20:23.000000000 +0100 @@ -14,7 +14,7 @@ CC = gcc CFLAGS = -DUNiX -DPROTO -O -v -MEMFLAG1 = -DMEM=16 +MEMFLAG1 = -DMEM=12 # MEM may be set to any integer value from 1 to 32. # This is the size of the ARIBAS heap in Megabytes # The value should not exceed one half of the RAM of your machine @@ -44,7 +44,7 @@ $(PROGRAM): $(OBJECTS) $(CC) -o $(PROGRAM) $(OBJECTS) - + strip $(PROGRAM) clean: \rm *.o Index: aribas-1.64/src/print.c =================================================================== --- aribas-1.64.orig/src/print.c 2010-02-10 21:17:11.000000000 +0100 +++ aribas-1.64/src/print.c 2010-02-10 21:20:25.000000000 +0100 @@ -54,6 +54,7 @@ ** 2002-08-03: baseprefix changed, ** changed argument type of s1form, s2form, sformaux ** 2003-02-21: Gformat also for gf2nint's +** 2010-02-06: s1form, s2form */ #include "common.h" @@ -75,6 +76,8 @@ PUBLIC void fnewline _((truc strom)); PUBLIC void ffreshline _((truc strom)); PUBLIC void flinepos0 _((truc strom)); +PUBLIC wtruc strcast _((char *str)); +PUBLIC wtruc intcast _((long int)); PUBLIC int s1form _((char *buf, char *fmt, wtruc dat)); PUBLIC int s2form _((char *buf, char *fmt, wtruc dat1, wtruc dat2)); PUBLIC int setprnprec _((int prec)); @@ -1107,7 +1110,7 @@ fprintmarg(strom,OutBuf,strlen(OutBuf)); } if(eflg) { - k = s1form(OutBuf,"e~D",(wtruc)expo); + k = s1form(OutBuf,"e~D",intcast(expo)); fprintmarg(strom,OutBuf,k); } } @@ -1419,7 +1422,7 @@ expo = acc.expo + prec - 1; acc.expo = -prec + 1; n = fixstring(&acc,prec-1,buf); - n += s1form(buf+n,"e~D",(wtruc)expo); + n += s1form(buf+n,"e~D",intcast(expo)); } } else { @@ -1483,10 +1486,10 @@ ch = v.pp.ww; if(quotemode) { if(ch < ' ' || ch == 127) { - len = s1form(buf,"chr(~D)",(wtruc)ch); + len = s1form(buf,"chr(~D)",intcast(ch)); } else { - len = s1form(buf,"'~C'",(wtruc)ch); + len = s1form(buf,"'~C'",intcast(ch)); } return(len); } @@ -1535,7 +1538,7 @@ obj = PTRtarget(obj); if(obj == nil) return(strcopy(buf,SYMname(nil))); - return(s1form(buf,"",(wtruc)truc2msf(obj))); + return(s1form(buf,"",intcast(truc2msf(obj)))); } /*--------------------------------------------------------------*/ PRIVATE int obj2str(flg,obj,buf) @@ -1565,7 +1568,7 @@ else str = "OBJECT"; } - return(s2form(buf,"<~A:~X>",(wtruc)str,(wtruc)u)); + return(s2form(buf,"<~A:~X>",strcast(str),intcast(u))); } /*--------------------------------------------------------------*/ PRIVATE int leftpad(buf,width,ch) @@ -1761,12 +1764,24 @@ return(big2xstr(x,n,buf)); } /*--------------------------------------------------------------*/ +PUBLIC wtruc strcast(str) +char *str; +{ + return (wtruc)str; +} +/*--------------------------------------------------------------*/ +PUBLIC wtruc intcast(x) +long x; +{ + return (wtruc)x; +} +/*--------------------------------------------------------------*/ PUBLIC int s1form(buf,fmt,dat) char *buf; char *fmt; wtruc dat; { - return(s2form(buf,fmt,dat,(wtruc)0)); + return(s2form(buf,fmt,dat,dat)); } /*--------------------------------------------------------------*/ PUBLIC int s2form(buf,fmt,dat1,dat2) Index: aribas-1.64/src/scanner.c =================================================================== --- aribas-1.64.orig/src/scanner.c 2010-02-10 21:17:12.000000000 +0100 +++ aribas-1.64/src/scanner.c 2010-02-10 21:20:26.000000000 +0100 @@ -1460,11 +1460,11 @@ strcopy(OutBuf,"error in function readln"); else { if(inpsource == TERMINALINP) - src = (wtruc)st; + src = strcast(st); else /* FILEINPUT */ - src = (wtruc)sf; + src = strcast(sf); s2form(OutBuf, - "error in line <= ~D of ~A",(wtruc)(cStream->lineno),src); + "error in line <= ~D of ~A",intcast(cStream->lineno),src); } fprintline(tstderr,OutBuf); return(error(sym1,mess,sym2)); Index: aribas-1.64/src/terminal.c =================================================================== --- aribas-1.64.orig/src/terminal.c 2010-02-10 21:17:12.000000000 +0100 +++ aribas-1.64/src/terminal.c 2010-02-10 21:20:28.000000000 +0100 @@ -204,7 +204,7 @@ #ifdef GETKEY getkeysym = newsymsig("get_key", sFBINARY,(wtruc)Fgetkey, s_0); #endif - s1form(text,"more than ~D lines",(wtruc)BUFLINES); + s1form(text,"more than ~D lines",intcast(BUFLINES)); bufovflsym = newselfsym(text,sINTERNAL); } /*------------------------------------------------------------*/ debian/patches/manpage-improved0000644000000000000000000002543211334610047014000 0ustar Author: Otto Forster Description: Some improvements of manpage --- aribas-1.64.orig/doc/aribas.1 2010-02-03 20:48:16.000000000 +0100 +++ aribas-1.64/doc/aribas.1 2010-02-02 09:22:00.000000000 +0100 @@ -2,7 +2,7 @@ .\" .\" $Id: ssystem.1.2 1996/06/30 13:33:54 bousch Exp $ .\" -.TH ARIBAS 1 "February 2001" "ARIBAS" +.TH ARIBAS 1 "February 2010" "ARIBAS" .SH NAME aribas \- Multiprecision Arithmetic Interpreter @@ -37,13 +37,13 @@ \fBAribas\fR answers .nf - -: 359907 + \-: 359907 .fi -The symbol \fB-:\fR introduces the result. +The symbol \fB\-:\fR introduces the result. .br .BR IMPORTANT. -To mark the end of your input, you must always type a full stop `.' +To mark the end of your input, you must always type a full stop '.' and then press RETURN. .br .PP @@ -51,7 +51,7 @@ .nf ==> F6 := 2**64 + 1. - -: 18446_74407_37095_51617 + \-: 18446_74407_37095_51617 .fi This calculates the 6th Fermat number (\fB**\fR denotes exponentiation) @@ -60,8 +60,8 @@ this variable for example in the expression .nf - ==> 123**(F6 - 1) mod F6. - -: 688_66214_58712_63971 + ==> 123**(F6 \- 1) mod F6. + \-: 688_66214_58712_63971 .fi which shows (by Fermat's theorem) that F6 is not a prime number. @@ -72,7 +72,7 @@ .nf ==> x := _. - -: 688_66214_58712_63971 + \-: 688_66214_58712_63971 .fi As you can see in the above examples, \fBaribas\fR uses the underscore @@ -82,7 +82,7 @@ .nf ==> z := 123_4567_890. - -: 1234567890 + \-: 1234567890 .fi Here the output contains no underscore, which shows that z is less @@ -97,14 +97,14 @@ working .. factor found after 512 iterations - -: 274177 + \-: 274177 .fi To find the remaining cofactor, give the command .nf ==> x := F6 div _. - -: 6728_04213_10721 + \-: 6728_04213_10721 .fi To test whether this factor is prime, Rabin's probabilistic test @@ -112,7 +112,7 @@ .nf ==> rab_primetest(x). - -: true + \-: true .fi The function \fIrho_factorize\fR is good for finding small factors @@ -180,11 +180,11 @@ .fi and several higher precisions up to an implementation dependent -limit, typically 1024 or 4096 bits, which can be determined by +limit, typically 1024 or 5120 bits, which can be determined by the function \fImax_floatprec()\fR. By default, when calculating with numbers of data type \fIreal\fR, single_floats are used. This corresponds to a precision of 9 to 10 decimal places. -A precision of 4096 bits corresponds to over 1200 decimal places. +A precision of 5120 bits corresponds to over 1500 decimal places. The precision can be changed using the function \fIset_floatprec\fR. The function takes one integer argument, @@ -194,7 +194,7 @@ .nf ==> set_floatprec(100). - -: 128 + \-: 128 .fi the floating point precision is 128 bits and you can calculate @@ -227,7 +227,7 @@ If you have entered this correctly, \fBaribas\fR echoes the function name .nf - -: fac + \-: fac .fi and from now on you can use \fIfac\fR in the same way as a built-in @@ -235,7 +235,7 @@ .nf ==> fac(32). - -: 2_63130_83693_36935_30167_21801_21600_00000 + \-: 2_63130_83693_36935_30167_21801_21600_00000 .fi Note that inside function definitions all used variables must @@ -250,7 +250,7 @@ i: integer; begin for i := 1 to n do - vec[i-1] := sqrt(i); + vec[i\-1] := sqrt(i); end; return vec; end. @@ -261,7 +261,7 @@ .nf ==> sqrt_list(10). - -: (1.00000000, 1.41421356, 1.73205081, 2.00000000, + \-: (1.00000000, 1.41421356, 1.73205081, 2.00000000, 2.23606798, 2.44948974, 2.64575131, 2.82842712, 3.00000000, 3.16227766) @@ -298,7 +298,7 @@ .fi returns a list of all keywords and names of builtin functions of \fBaribas\fR. -This list has about 180 entries, and begins and ends as follows: +This list has about 200 entries, and begins and ends as follows: .P (ARGV, _, __, ___, abs, alloc, and, arccos, arcsin, arctan, arctan2, aribas, array, atof, atoi, begin, binary, bit_and, bit_clear, @@ -341,7 +341,7 @@ version of \fBaribas\fR, you sometimes get into the following situation: Some previous line contains a typing error, but you cannot return to that line to correct it. -In this case you should simply type a full stop `\fB.\fR' , +In this case you should simply type a full stop '\fB.\fR' , followed by RETURN. You will get an error message which you can safely ignore, and a new prompt \fB==>\fR appears, allowing you to try again. @@ -354,50 +354,50 @@ .SS options The following options are available: .TP -.B -q +.B \-q (quiet mode) Suppresses all messages to the screen (version no, copyright notice, etc.) when \fBaribas\fR is started .TP -.B -v +.B \-v (verbose mode, default) Does not suppress messages to the screen when \fBaribas\fR is started. .TP -.B -c +.B \-c \fBaribas\fR does its own line breaking when writing to the screen. Normally it supposes that the screen (or the window in which \fBaribas\fR -runs) has 80 columns. With the -c option you can set another number, +runs) has 80 columns. With the \-c option you can set another number, which must be between 40 and 160 (in decimal representation). For example, if you run \fBaribas\fR in an Xterm window with 72 columns, use the -option -c72 (or -c 72, the space between -c and the number is +option \-c72 (or \-c 72, the space between \-c and the number is optional). .TP -.B -m -Here is a number (in decimal representation) between 64 and -16000. This number indicates how many Kilobytes of RAM \fBaribas\fR should +.B \-m +Here is a number (in decimal representation) between 500 and +32000. This number indicates how many Kilobytes of RAM \fBaribas\fR should use for the \fBaribas\fR heap. The default value depends on the options used when \fBaribas\fR was compiled. Typically, under UNIX or LINUX it is 6 -Megabytes, corresponding to -m6000 +Megabytes, corresponding to \-m6000 .TP -.B -h +.B \-h The online help of \fBaribas\fR depends on a file aribas.hlp which should be situated in the range of the environment variable PATH. If this is not -the case you can specify the exact path of the help file with the -h +the case you can specify the exact path of the help file with the \-h option. If for example the file aribas.hlp is in the directory -/usr/local/lib, use the option -h /usr/local/lib (the space after -h -is not necessary). The -h option can also be used if the help file +/usr/local/lib, use the option \-h /usr/local/lib (the space after \-h +is not necessary). The \-h option can also be used if the help file has a different name. If the help file is named help-aribas and lies -in the directory /home/joe/ari, use -h/home/joe/ari/help-aribas. +in the directory /home/joe/ari, use \-h/home/joe/ari/help-aribas. With a properly installed Debian package of \fBaribas\fR it should not be necessary to use this option. .TP -.B -p +.B \-p With this option you can specify a search path for loading files with \fBaribas\fR source code. may be either the (absolute) pathname of one directory or several pathnames separated by colons. Suppose that you have called \fBaribas\fR with the option - -p/usr/local/lib/aribas:~/ari/examples + \-p/usr/local/lib/aribas:~/ari/examples and that your home directory is /home/alice/. Then the command @@ -408,7 +408,7 @@ /home/alice/ari/examples. .TP -.B -b +.B \-b Batch mode when loading an \fBaribas\fR source code file from the command line, see below. @@ -416,11 +416,11 @@ One letter options which require no arguments may be merged, for example - aribas -q -b + aribas \-q \-b is equivalent to - aribas -qb + aribas \-qb .\"--------------------------------------------------------- .SS Further command line arguments @@ -432,8 +432,8 @@ is loaded as if the command \fIload("")\fR had been given after the start of \fBaribas\fR at the \fBaribas\fR prompt. If the file is not found in the current directory it is searched in the -directories specified by the -p option. -If the option -b was given, the file is loaded and executed. +directories specified by the \-p option. +If the option \-b was given, the file is loaded and executed. Afterwards \fBaribas\fR exits without showing it's prompt. If the file cannot be loaded completely because of an error, \fBaribas\fR exits immediately after the error message. @@ -451,7 +451,7 @@ .nf ==> ARGV. - -: ("startup", "4536", "eisenstein") + \-: ("startup", "4536", "eisenstein") .fi If you need some arguments as numbers and not as strings, you can @@ -460,7 +460,7 @@ .nf ==> x := atoi(ARGV[1]). - -: 4536 + \-: 4536 .fi will do it. The length of the vector \fIARGV\fR can be determined by @@ -528,27 +528,27 @@ different from .arirc), including the full path. In the configuration file you can specify all command line options -described above which begin with a - sign, however a separate +described above which begin with a \- sign, however a separate line must be used for every single option. Lines beginning with the character # or empty lines are ignored. In addition to the options described above, the configuration file may contain \fBaribas\fR source code. For this purpose there must be a line reading -.B -init +.B \-init Then everything after this line is treated as \fBaribas\fR source code and executed when \fBaribas\fR is started. The existence of a configuration file for \fBaribas\fR does not exclude the possibility to give command line arguments. If an option -(e.g. the -m option) is specified both in the configuration file +(e.g. the \-m option) is specified both in the configuration file and the command line but with different values, then the -specification at the command line is valid. Analogously, a -v -option on the command line overrides a -q option in the configuration +specification at the command line is valid. Analogously, a \-v +option on the command line overrides a \-q option in the configuration file. -If there is -init code in the configuration file and an -argument at the command line, then the -init code is executed first +If there is \-init code in the configuration file and an +argument at the command line, then the \-init code is executed first and afterwards the is loaded and its code executed. .SH FILES @@ -569,7 +569,9 @@ can be found in \fI/usr/share/doc/aribas\fR. .P The \fBaribas\fR home page is -\fIhttp://www.mathematik.uni-muenchen.de/~forster/sw/aribas.html\fR. + +http://www.mathematik.uni-muenchen.de/~forster/sw/aribas.html + .\"------------------------------------------------------------- .SH BUGS Bug reports should be sent by email to debian/patches/series0000644000000000000000000000005311334611633012031 0ustar manpage-improved no_strip casting_pointers debian/patches/no_strip0000644000000000000000000000131311301747426012400 0ustar Author: Ralf Treinen Description: Do not strip executable in Makefile --- aribas-1.53~/src/LINUX/Makefile.linux 2004-11-06 16:29:53.000000000 +0100 +++ aribas-1.53/src/LINUX/Makefile.linux 2007-08-25 10:14:19.000000000 +0200 @@ -48,7 +48,7 @@ $(PROGRAM): $(OBJECTS) $(ASSOBJECTS) $(CC) -o $(PROGRAM) $(LFLAGS) $(OBJECTS) $(ASSOBJECTS) - strip $(PROGRAM) + clean: \rm *.o diff -urNad aribas-1.53~/src/Makefile aribas-1.53/src/Makefile --- aribas-1.53~/src/Makefile 2007-08-25 10:13:56.000000000 +0200 +++ aribas-1.53/src/Makefile 2007-08-25 10:14:35.000000000 +0200 @@ -44,7 +44,7 @@ $(PROGRAM): $(OBJECTS) $(CC) -o $(PROGRAM) $(OBJECTS) - strip $(PROGRAM) + clean: \rm *.o debian/aribas.install0000644000000000000000000000014711334614103012015 0ustar src/aribas usr/bin src/EL/aribas.el usr/share/emacs/site-lisp/aribas src/aribas.hlp usr/lib/aribas debian/aribas.dirs0000644000000000000000000000015110771017222011306 0ustar usr/bin usr/share/man/man1 usr/share/doc/aribas/examples usr/lib/aribas usr/share/emacs/site-lisp/aribas debian/compat0000644000000000000000000000000211301775244010370 0ustar 7 debian/control0000644000000000000000000000112211472004403010560 0ustar Source: aribas Section: math Priority: optional Maintainer: Ralf Treinen Standards-Version: 3.9.1 Build-Depends: debhelper (>= 7) Homepage: http://www.mathematik.uni-muenchen.de/~forster/sw/aribas.html Package: aribas Architecture: any Depends: ${shlibs:Depends}, ${misc:Depends} Description: interpreter for arithmetic ARIBAS is an interactive interpreter suitable for big integer arithmetic and multiprecision floating point arithmetic. It has a syntax similar to Pascal or Modula-2, but contains also features from other programming languages like C, Lisp, Oberon.