Package: symmetrica / 2.0+ds-6

upstream-source-typo.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
Description: upstream source spelling correction
 Correct spelling typo in C source files as emitted by Lintian,
 spelling-error-in-binary tag; meant to be submitted to the
 upstream maintainer.
Origin: debian
Author: Jerome Benoit <calculus@rezozer.net>
Last-Update: 2017-11-22

--- a/de.c
+++ b/de.c
@@ -440,7 +440,7 @@
    if answer == e ==> explain
    if answer == g ==> go on
    if answer == r ==> retry
-   if answer == s ==> go on supress error texts
+   if answer == s ==> go on suppress error texts
    if answer == f ==> go on forever
    else               exit */
 /* AK 270689 V1.0 */ /* AK 070890 V1.1 */
@@ -457,16 +457,16 @@
     fflush(stdout);
     fflush(stderr);
     fprintf(stderr,
-"\nenter a to abort with core dump, g to go, f to supress\n");
+"\nenter a to abort with core dump, g to go, f to suppress\n");
     fprintf(stderr, 
-"s to supress further error text, r to retry,  e to explain, else stop\n");
+"s to suppress further error text, r to retry,  e to explain, else stop\n");
     fprintf(stderr,"ERROR: %s?: ",fehlertext);
 
 
     fflush(stderr);
 
     if (sym_background) {
-        fprintf(stderr,"\nerror occured in background mode finishing SYMMETRICA\n");
+        fprintf(stderr,"\nerror occurred in background mode finishing SYMMETRICA\n");
         exit(ERROR_BACKGROUND);
         }
 
--- a/ff.c
+++ b/ff.c
@@ -931,7 +931,7 @@
     *Koerperzeiger = Koerperelement;
     for (j=(INT)0;j<=i;j++)
         Koerperelement[j] = (INT)0;
-    fprintf(stderr,"input   of %ld entries, seperated by comma",i);
+    fprintf(stderr,"input   of %ld entries, separated by comma",i);
     fprintf(stderr,"\nmissing entries are 0\n");
     scanf("%s",Zeichen);
     j = (INT)1;
--- a/vc.c
+++ b/vc.c
@@ -1249,7 +1249,7 @@
     COP("scan_permvector(1)",res);
 
     d = callocobject();
-    erg += printeingabe("length of PERMUATION vector ");
+    erg += printeingabe("length of PERMUTATION vector ");
     erg += scan(INTEGER,d);
     erg += b_l_v(d,res);
     for (i=(INT)0;i<S_V_LI(res); erg += scan(PERMUTATION,S_V_I(res,i++)));
--- a/poly.c
+++ b/poly.c
@@ -330,7 +330,7 @@
     kind = scanobjectkind();
 
     erg += scan(kind,S_MO_S(c));
-    printeingabe("what kind of coefficent");
+    printeingabe("what kind of coefficient");
     kind = scanobjectkind();
     erg += scan(kind,S_MO_K(c));
     ENDR("scan_monom");
@@ -1158,7 +1158,7 @@
 
     erg += 
     printeingabe("input of a POLYNOM object as a sum of MONOM objects");
-    printeingabe("what kind of coefficent");
+    printeingabe("what kind of coefficient");
     kind = scanobjectkind();
     erg += init(POLYNOM,poly);
     d = callocobject();
@@ -1166,7 +1166,7 @@
     erg += b_skn_po(callocobject(),callocobject(),NULL,d);
     printeingabe("enter the exponent vector of the polynom");
     erg += scan(INTEGERVECTOR,S_PO_S(d));
-    printeingabe("enter the coefficent of the polynom");
+    printeingabe("enter the coefficient of the polynom");
     scan(kind,S_PO_K(d));
     erg += add_apply(d,poly);
 spe:
--- a/perm.c
+++ b/perm.c
@@ -631,7 +631,7 @@
     CTO(EMPTY,"scan_kranz(1)",a);
     init(KRANZ,a);
 
-    printeingabe("input of the elment of the wreath product of two");
+    printeingabe("input of the element of the wreath product of two");
     printeingabe("symmetric groups");
     printeingabe("input of the base permutation");
     scan(PERMUTATION,s_kr_g(a));
--- a/ma.c
+++ b/ma.c
@@ -645,7 +645,7 @@
     CTO(PERMUTATION,"det050995(2)",perm);
 
     if (neq(S_M_L(mat),S_P_L(perm)))
-        return error("det050995:wrong lengthes");
+        return error("det050995:wrong lengths");
 
     erg += copy(S_M_IJ(mat,S_P_II(perm,0L)-1,S_P_II(perm,1L)-1L),c);
 
@@ -668,7 +668,7 @@
     CTO(MATRIX,"det270588(1)",mat);
     CTO(PERMUTATION,"det270588(2)",perm);
     SYMCHECK(S_M_HI(mat) != S_M_LI(mat), "det270588:not quadratic");
-    SYMCHECK(S_M_LI(mat) != S_P_LI(perm), "det270588:wrong lengthes");
+    SYMCHECK(S_M_LI(mat) != S_P_LI(perm), "det270588:wrong lengths");
 
     FREESELF(c);
     COPY(S_M_IJ(mat,0L,S_P_II(perm,0L)-1L),c);
--- a/part.c
+++ b/part.c
@@ -162,7 +162,7 @@
     else
         {
         debugprint(a);
-        return error("strictp:wrong type of partiton");
+        return error("strictp:wrong type of partition");
         }
     ENDR("strictp");
 }
@@ -420,7 +420,7 @@
         else if (S_PA_K(a) == EXPONENT) {
             INT i,l,ol;
             l = (S_PA_LI(a) > S_PA_LI(b) ? S_PA_LI(a) :  S_PA_LI(b) );
-            /* l is the maximum of lengthes */
+            /* l is the maximum of lengths */
             ol = S_PA_LI(a);
             if (l > S_PA_LI(a)) 
                 erg += inc_vector_co(S_PA_S(a), l - S_PA_LI(a) );
--- a/ga.c
+++ b/ga.c
@@ -491,7 +491,7 @@
 
     erg=scan(MONOM,S_L_S(a));
     if (erg == ERROR) {
-        error("scan_gral:error in scaning listelement");
+        error("scan_gral:error in scanning listelement");
         return(ERROR); 
         }
 
--- a/list.c
+++ b/list.c
@@ -876,7 +876,7 @@
 
     erg=scan(givenkind,S_L_S(a));
     if (erg == ERROR) {
-        error("scan_list:error in scaning listelement");
+        error("scan_list:error in scanning listelement");
         goto endr_ende;
     }
 
--- a/sr.c
+++ b/sr.c
@@ -1151,7 +1151,7 @@
     C_O_K(a,typ);
     erg += printeingabe("Input of a partition type monom");
     erg += scan(PARTITION,S_S_S(a));
-    erg += printeingabe("Input of coefficent");
+    erg += printeingabe("Input of coefficient");
     kind = scanobjectkind();
     erg += scan(kind,S_S_K(a));
     erg += printeingabe("one more monom y/n");
@@ -2074,7 +2074,7 @@
 
 INT m_scalar_schur(a,b)  OP a,b;
 /* changes a scalar into a SCHURpolynomial with this scalar as 
-coefficent and labeled by the part of zero length */
+coefficient and labeled by the part of zero length */
 /* AK 181290 V1.1 */ /* AK 200891 V1.3 */
 /* AK 030498 V2.0 */ /* AK 210704 V3.0 */
 {
--- a/rest.c
+++ b/rest.c
@@ -3851,9 +3851,9 @@
 /* 020488 AK */ /* AK 010889 V1.1 */ /* AK 210891 V1.3 */
     {
     b_gk_spa(callocobject(),callocobject(),a);
-    scan_printeingabe("input of a skewpartiton, the big partition");
+    scan_printeingabe("input of a skewpartition, the big partition");
     scan(PARTITION,S_SPA_G(a));
-    scan_printeingabe("input of a skewpartiton, the small partition");
+    scan_printeingabe("input of a skewpartition, the small partition");
     scan(PARTITION,s_spa_k(a));
     return(OK);
     }