digitalmars.D - Linked errors with templates in several modules - stlport.zip
- Sukit Tretriluxana (91/92) Jun 25 2004 I am getting the following errors.
- Sukit Tretriluxana (252/252) Jun 25 2004 Seems like the system has problems with attachment. If you cannot downlo...
- Sukit Tretriluxana (252/252) Jun 25 2004 Seems like the system has problems with attachment. If you cannot downlo...
- J C Calvarese (29/35) Jun 26 2004 I think the problem is with the web interface, not the attachment.
- Sukit Tretriluxana (16/197) Jun 27 2004 Hi Justin and everyone,
I am constantly getting link errors when trying to make the attached project. Basically when I execute the following command,make unittestI am getting the following errors. ========================== test.obj(test) Error 42: Symbol Undefined __Class_9ArrayList19ArrayListIterator_i17ArrayListIt erator test.obj(test) Error 42: Symbol Undefined _D9ArrayList19ArrayListIterator_i17ArrayListIterator 5_ctorFiAiZC9ArrayList19ArrayListIterator_i17ArrayListIterator --- errorlevel 2 make: *** [test.exe] Error 2 =========================== I am not quite sure what I missed here and have been trying to arrange the files and their code differently but it never gets better. Could someone help me out? From my opinion, this is like a bug in the compiler as it doesn't seem to generate the code for the iterator. So when linked, it could find where the bind the code. Thanks, Ed PS. The attached is a zip file contained all the source code and a make file. you can simply type "make unittest" and should see the error. I am using 0.93 version of DMD. begin 0644 stlport.zip M_?KT2[9-)R[` S!3%:RT3V)ZIG6:I,GJID=Y\&A]`-L&<C56E,-V;_WX!D.U M;<E#V!/X *U!9T`Z<JC68A #H*,3" >TC"53K`<$5K*4KW&*_/;6N[YD6TV< M\YHK_2KY!AC9+S0!S$67\'.=_6)&98R^^%LYIAPU,M#F:NM1Z>F_2\EU_;.Q M?5^>OD3K:R=-<6;H,TCQU35-/O0Z`E!+`P04````"``/=-DP50Y>+`,!```- M30:.:$9,87O[G:.)M?4B)O\Y__G^I* *MF&J4Y34'_L:]I^4)`>OG?36559= MC!8J 0_UO35&-[ZU_7VE;`>_U"9UZYS\6Y885BAYW[TA*ETC,Q=J(^SYFU-R M*$G7157`U$>6V2]H!,<HG5[*[6L])KOTK<<+W*>.42;\N)WY-]$7F.N;\0"\ M&FZI_U!+`P04````"`#M<]DP7K14]TH```!F````! ```'1E<W0N9,O,+< O M*E%P+"I*K/3)+"[QS4\IS4FUYN7BY2K+STQ1R$W,S-/0Y.6JYN524$`H4]3( M`!D7```1````07)R87E,:7-T36]D=6QE+F3%6$MOVT80OAOP?Q '*$!#CUK7 M*$Y !#D82!]HBUY<'RAQ:6VQ(E5RJ5A-]-\[^WYP*4NND_` B#L[L]]^.R\N M76_JAL-'VO*?ZJ)C9'Y^1M78+2=-SNO&CI^?_?BBC[`'-TV3[\3R ,LRLB85 M+X]_TRT87<*2Y6WK=I+]F;.._+';D$MX+:F]\(<^GY\!P*:AVYQ+H+#LFM_I MOX)B3V`U[NYA*_ZW<^AITFKYX7'C]-4$A8JO:)N9Y?"1[[.KJS' SZ5:;)]0 M478I?Y]O\B7EN]B$+SO5UKB/VC.O1^`:KN9F3&U]RDCUP%<H\:W928%!.2FD MI8]N4=<,\J)P!R-6\K"0JNT:HDUDQO0(9I<1M#LM M&L.VIH7`<,,U3P5Y',/_`-2N:,E_HP\K85`:ZZ.5 #I MY0$S>2*80G$`%\&94ZKEF</R:449R<2<Z2IO?R://+OT+.(CCD;**R6TJON3 MV64L)/BH30VQ+3;4"J\]0'I_SC,H*O%- I;NC';G$/(UA]&(AJ29(Q;'ZY$7 M<9?B:<E(WF2'0C'E)<L:$S*MVL$ TF<D\?]29E)X<0V3V=,VOZ_[T3*[L+OS M_3"<YK98YJPE<T]D_?1HAY7;I^V']8;OLCZ)]D2&CF2`"+/[GL&*?'(U*Z5L MW'ZL'<L1B'7V=",FWR?!.P]Z(%ZT]E$':2QIRBJCQPTYIA]=5QA9\,86X7Y8 M4>FY)K*N(U,!.GJ4"PSXOP"$G<3M"=B-4TQ )G;Q5NYF,OE.&W"(6W)437/C M-2M0I,I2?+YPH' Y3,K"(+$B(0]'55*MU[FUW4+V=\)>V=3K6[4[\<KKV\A? M96-7=_A[;:1X3%;-PI_:\(G7$G2(^$K/R*1QKPZAPE3S)" 2_9=YMZM.IQK* M?4R?4!].2PU9UULRZ))BKYNZ-:5*IWJ[!/J?D,K,'SJ>+)X?2<G%A*!=P6<R M"4XG .NR*/3=TTO& QZJ=G23SC5'^Z7#WV^X^O"?]E2/[*,+H"J;J[QZ(`4" M(#C[? N`!2.(:'SV0!!"/\=:GQ/^- ^E#G_ W'` #Q_BT9 M4E^GZ E J>.(9^V'N?!S$=8[GC?<*U!U66)13K41.BR<0B(^L*6(4B2$11FY M42NX XMSY5/0S3?4,["';9`&[V_H:?RCX_'OO_95F$G:S[ 2DX9,4H=Z\3?F MSBE\JYLO`SR\`4O6H,^!%WBW8&/PLFGJ,JS(>3X/DXN]:[(V8 6S(+(SJ"-> MP%$./AJYSRCMV=!5E'/2<NDX0A=_\?'Z4.0*^PB9JW7=B(2RH4`UHXLG6?$R M>]4J.GXH_JI>C;4%>UNBINI!<04T<Z.G&]"7&B=;D"S\!U!+`P04````"``\ M!_(/VYM]<3\ IU!ZZ*&WT$OI82UM\):-UDBR(2W]]UIN7#O&$`S10> Q,SNC M II1%Y%=N%EV`*ZJW3,Y/)_J>)Y5'][3E0!?%I><>CII2S=]_L'6N_24XJWB M=3<, ;]HYO:?\OX!4??>XSQ[?R7#UA2. M 0````!,:7-T36]D=6QE+F102P$"%``4````"``/=-DP50Y>+`,!```-` `` M"``````````!`"``MH$D`0``36%K969I;&502P$"%``4````"`#M<]DP7K14 M]TH```!F````! `````````!`"``MH%-` ``=&5S="YD4$L!`A0`%````` ` M.G/9,*$CK>[T!```&1<``!$``````````0` `+:!NP(``$%R<F%Y3&ES=$UO M9'5L92YD4$L!`A0`%````` `/'/9,(K&/)L*`0``?`,``!(``````````0` ME ```'D!```0``````````$`(`"V 1 )``!)=&5R871O<DUO9'5L92YD4$L% 3! `````&``8`80$``-P)``````"V ` end
Jun 25 2004
Sukit Tretriluxana <Sukit_member pathlink.com>
Seems like the system has problems with attachment. If you cannot download the
attachment, here is the code in each file + the make file.
====================================
IteratorModule.d
====================================
public interface Iterator(ValueType) {
public bool hasNext();
public ValueType next();
}
====================================
CollectionModule.d
====================================
import IteratorModule;
public interface Collection(ValueType) {
public bool add(ValueType val);
public bool addAll(.Collection!(ValueType) col);
public void clear();
public bool contains(ValueType val);
public bool containsAll(.Collection!(ValueType) col);
public bool isEmpty();
public Iterator!(ValueType) iterator();
public bool remove(ValueType val);
public bool removeAll(.Collection!(ValueType) col);
public bool retainAll(.Collection!(ValueType) col);
public int size();
public ValueType[] toArray();
public void toArray(ValueType[] array);
}
====================================
ListModule.d
====================================
import CollectionModule;
public interface List(ValueType) : Collection!(ValueType) {
public void addAt(int index, ValueType val);
public void addAllAt(int index, Collection!(ValueType) col);
public ValueType get(int index);
public int indexOf(ValueType val);
public int lasIndexOf(ValueType val);
public ValueType removeAt(int index);
public ValueType set(int index, ValueType val);
public .List!(ValueType) subList(int fromIndex, int toIndex);
}
====================================
ArrayListModule.d
====================================
import ListModule;
import IteratorModule;
public class ArrayList(ValueType) : List!(ValueType) {
private int curSize;
private ValueType[] values;
private int incExpcurSize;
public this() {
this(100, 100);
}
public this(int initCapacity) {
this(initCapacity, 100);
}
public this(int initCapacity, int incExpcurSize) {
curSize = 0;
values.length = initCapacity;
incExpcurSize = incExpcurSize;
}
public bool add(ValueType val) {
ensurecurSize(curSize + 1);
values[curSize++] = val;
return true;
}
public void addAt(int index, ValueType val) {
ensurecurSize(curSize + 1);
shiftRight(index, 1);
values[index] = val;
}
public bool addAll(Collection!(ValueType) col) {
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
add(itor.next());
}
return true;
}
public void addAllAt(int index, Collection!(ValueType) col) {
ensurecurSize(curSize + col.size);
shiftRight(index, col.size);
Iterator!(ValueType) itor = col.iterator();
for(int i = index; itor.hasNext(); ++i) {
values[i] = itor.next();
}
}
public void clear() {
curSize = 0;
}
public bool contains(ValueType val) {
return indexOf(val) != -1;
}
public bool containsAll(Collection!(ValueType) col) {
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
if(!contains(itor.next())) {
return false;
}
}
return true;
}
public bool isEmpty() {
return curSize == 0;
}
public Iterator!(ValueType) iterator() {
return new ArrayListIterator!(ValueType)(curSize, values);
// return new ArrayListIterator!(ValueType)(curSize, curSize);
}
public ValueType get(int index) {
return values[index];
}
public int indexOf(ValueType val) {
for(int i = 0; i < curSize; ++i) {
if(values[i] == val) {
return i;
}
}
return -1;
}
public int lasIndexOf(ValueType val) {
for(int i = curSize - 1; i >= 0; --i) {
if(values[i] == val) {
return i;
}
}
return -1;
}
public ValueType set(int index, ValueType val) {
ValueType oldval = values[index];
values[index] = val;
return oldval;
}
public int size() {
return curSize;
}
public List!(ValueType) subList(int fromIndex, int toIndex) {
int count = toIndex - fromIndex;
ArrayList!(ValueType) subl = new .ArrayList!(ValueType)(count);
subl.values[] = this.values[fromIndex..toIndex];
return subl;
}
public bool remove(ValueType val) {
int pos = indexOf(val);
if(pos != -1) {
shiftLeft(pos, 1);
--curSize;
return true;
}
return false;
}
public ValueType removeAt(int index) {
ValueType oldval = values[index];
shiftLeft(index, 1);
--curSize;
return oldval;
}
public bool removeAll(Collection!(ValueType) col) {
bool changed = false;
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
changed = remove(itor.next()) || changed;
}
return changed;
}
public bool retainAll(Collection!(ValueType) col) {
bool changed = false;
for(int index = 0; index < curSize; ) {
if(col.contains(values[index])) {
++index;
} else {
removeAt(index);
changed = true;
}
}
return changed;
}
public ValueType[] toArray() {
ValueType[] result = new ValueType[curSize];
result[] = values;
return result;
}
public void toArray(ValueType[] array) {
array[] = values;
}
private void ensurecurSize(int reqcurSize) {
if(reqcurSize > values.length) {
int newcurSize = reqcurSize - curSize <= incExpcurSize
? incExpcurSize : reqcurSize + incExpcurSize;
values.length = newcurSize;
}
}
private void shiftLeft(int startIndex, int offset) {
for(int index = startIndex; index < curSize; --index) {
values[index - offset] = values[index];
}
}
private void shiftRight(int startIndex, int offset) {
for(int index = curSize - 1; index < startIndex; --index) {
values[index + offset] = values[index];
}
}
}
public class ArrayListIterator(ValueType) : Iterator!(ValueType) {
private int curSize, index;
private ValueType[] data;
public this(int curSize, ValueType[] data) {
// public this(int curSize, int data) {
this.curSize = curSize;
this.data = data;
// this.curSize = data;
index = 0;
}
public bool hasNext() {
return index < curSize;
}
public ValueType next() {
return data[index++];
}
}
====================================
test.d
====================================
import ArrayListModule;
void main()
{
ArrayList!(int) iarray = new ArrayList!(int)();
}
====================================
Makefile
====================================
DMD = dmd
SRCS = \
IteratorModule.d \
CollectionModule.d \
ListModule.d \
ArrayListModule.d
OBJS = $(SRCS:.d=.obj)
TEST_SRCS = test.d
TEST_OBJS = $(TEST_SRCS:.d=.obj)
LIB = stl.lib
TEST = test.exe
all: $(SRCS) $(LIB)
clean:
rm $(OBJS) $(TEST_OBJS) $(LIB) $(TEST) *.exe *.map
$(LIB): $(OBJS)
lib -c -n $ $(OBJS)
%.obj: %.d
$(DMD) $< -of$ -c $(DMD_FLAGS)
unittest: $(SRCS) $(LIB) $(TEST)
$(TEST): $(OBJS) $(TEST_OBJS)
$(DMD) $(TEST_SRCS) -of$ $(OBJS) $(DMD_FLAGS)
Jun 25 2004
Seems like the system has problems with attachment. If you cannot download the
attachment, here is the code in each file + the make file.
====================================
IteratorModule.d
====================================
public interface Iterator(ValueType) {
public bool hasNext();
public ValueType next();
}
====================================
CollectionModule.d
====================================
import IteratorModule;
public interface Collection(ValueType) {
public bool add(ValueType val);
public bool addAll(.Collection!(ValueType) col);
public void clear();
public bool contains(ValueType val);
public bool containsAll(.Collection!(ValueType) col);
public bool isEmpty();
public Iterator!(ValueType) iterator();
public bool remove(ValueType val);
public bool removeAll(.Collection!(ValueType) col);
public bool retainAll(.Collection!(ValueType) col);
public int size();
public ValueType[] toArray();
public void toArray(ValueType[] array);
}
====================================
ListModule.d
====================================
import CollectionModule;
public interface List(ValueType) : Collection!(ValueType) {
public void addAt(int index, ValueType val);
public void addAllAt(int index, Collection!(ValueType) col);
public ValueType get(int index);
public int indexOf(ValueType val);
public int lasIndexOf(ValueType val);
public ValueType removeAt(int index);
public ValueType set(int index, ValueType val);
public .List!(ValueType) subList(int fromIndex, int toIndex);
}
====================================
ArrayListModule.d
====================================
import ListModule;
import IteratorModule;
public class ArrayList(ValueType) : List!(ValueType) {
private int curSize;
private ValueType[] values;
private int incExpcurSize;
public this() {
this(100, 100);
}
public this(int initCapacity) {
this(initCapacity, 100);
}
public this(int initCapacity, int incExpcurSize) {
curSize = 0;
values.length = initCapacity;
incExpcurSize = incExpcurSize;
}
public bool add(ValueType val) {
ensurecurSize(curSize + 1);
values[curSize++] = val;
return true;
}
public void addAt(int index, ValueType val) {
ensurecurSize(curSize + 1);
shiftRight(index, 1);
values[index] = val;
}
public bool addAll(Collection!(ValueType) col) {
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
add(itor.next());
}
return true;
}
public void addAllAt(int index, Collection!(ValueType) col) {
ensurecurSize(curSize + col.size);
shiftRight(index, col.size);
Iterator!(ValueType) itor = col.iterator();
for(int i = index; itor.hasNext(); ++i) {
values[i] = itor.next();
}
}
public void clear() {
curSize = 0;
}
public bool contains(ValueType val) {
return indexOf(val) != -1;
}
public bool containsAll(Collection!(ValueType) col) {
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
if(!contains(itor.next())) {
return false;
}
}
return true;
}
public bool isEmpty() {
return curSize == 0;
}
public Iterator!(ValueType) iterator() {
return new ArrayListIterator!(ValueType)(curSize, values);
// return new ArrayListIterator!(ValueType)(curSize, curSize);
}
public ValueType get(int index) {
return values[index];
}
public int indexOf(ValueType val) {
for(int i = 0; i < curSize; ++i) {
if(values[i] == val) {
return i;
}
}
return -1;
}
public int lasIndexOf(ValueType val) {
for(int i = curSize - 1; i >= 0; --i) {
if(values[i] == val) {
return i;
}
}
return -1;
}
public ValueType set(int index, ValueType val) {
ValueType oldval = values[index];
values[index] = val;
return oldval;
}
public int size() {
return curSize;
}
public List!(ValueType) subList(int fromIndex, int toIndex) {
int count = toIndex - fromIndex;
ArrayList!(ValueType) subl = new .ArrayList!(ValueType)(count);
subl.values[] = this.values[fromIndex..toIndex];
return subl;
}
public bool remove(ValueType val) {
int pos = indexOf(val);
if(pos != -1) {
shiftLeft(pos, 1);
--curSize;
return true;
}
return false;
}
public ValueType removeAt(int index) {
ValueType oldval = values[index];
shiftLeft(index, 1);
--curSize;
return oldval;
}
public bool removeAll(Collection!(ValueType) col) {
bool changed = false;
Iterator!(ValueType) itor = col.iterator();
while(itor.hasNext()) {
changed = remove(itor.next()) || changed;
}
return changed;
}
public bool retainAll(Collection!(ValueType) col) {
bool changed = false;
for(int index = 0; index < curSize; ) {
if(col.contains(values[index])) {
++index;
} else {
removeAt(index);
changed = true;
}
}
return changed;
}
public ValueType[] toArray() {
ValueType[] result = new ValueType[curSize];
result[] = values;
return result;
}
public void toArray(ValueType[] array) {
array[] = values;
}
private void ensurecurSize(int reqcurSize) {
if(reqcurSize > values.length) {
int newcurSize = reqcurSize - curSize <= incExpcurSize
? incExpcurSize : reqcurSize + incExpcurSize;
values.length = newcurSize;
}
}
private void shiftLeft(int startIndex, int offset) {
for(int index = startIndex; index < curSize; --index) {
values[index - offset] = values[index];
}
}
private void shiftRight(int startIndex, int offset) {
for(int index = curSize - 1; index < startIndex; --index) {
values[index + offset] = values[index];
}
}
}
public class ArrayListIterator(ValueType) : Iterator!(ValueType) {
private int curSize, index;
private ValueType[] data;
public this(int curSize, ValueType[] data) {
// public this(int curSize, int data) {
this.curSize = curSize;
this.data = data;
// this.curSize = data;
index = 0;
}
public bool hasNext() {
return index < curSize;
}
public ValueType next() {
return data[index++];
}
}
====================================
test.d
====================================
import ArrayListModule;
void main()
{
ArrayList!(int) iarray = new ArrayList!(int)();
}
====================================
Makefile
====================================
DMD = dmd
SRCS = \
IteratorModule.d \
CollectionModule.d \
ListModule.d \
ArrayListModule.d
OBJS = $(SRCS:.d=.obj)
TEST_SRCS = test.d
TEST_OBJS = $(TEST_SRCS:.d=.obj)
LIB = stl.lib
TEST = test.exe
all: $(SRCS) $(LIB)
clean:
rm $(OBJS) $(TEST_OBJS) $(LIB) $(TEST) *.exe *.map
$(LIB): $(OBJS)
lib -c -n $ $(OBJS)
%.obj: %.d
$(DMD) $< -of$ -c $(DMD_FLAGS)
unittest: $(SRCS) $(LIB) $(TEST)
$(TEST): $(OBJS) $(TEST_OBJS)
$(DMD) $(TEST_SRCS) -of$ $(OBJS) $(DMD_FLAGS)
Jun 25 2004
Sukit Tretriluxana wrote:Seems like the system has problems with attachment. If you cannot download the attachment, here is the code in each file + the make file.I think the problem is with the web interface, not the attachment. If a person Mozilla Thunderbird, Outlook, or another newsgroup reader, they shouldn't have a problem. (At least, I didn't have a problem using Thunderbird.) By the way, there's only a delay between posting a message on the web interface and when it shows up on the web. If you could use Thunderbird or Outlook, you'd probably find an easier time of everything. Incidently, the binary .zip file can still be decoded from the web interface by running uudecode (see the attached D source file for instructions if you're interested). Are you using the Digital Mars make program or another? I got an error message: Error on line 21: expecting target : dependencies Well, I've never felt comfortable with make anyways, so I tried the old fashioned way: dmd test.d ArrayListModule.d CollectionModule.d IteratorModule.d ListModule.d This is the error I got (DMD 0.93 on WinXP): ArrayListModule.obj(ArrayListModule) Error 42: Symbol Undefined __Interface_14IteratorModule10Iterator_i8Iterator --- errorlevel 1 Oh, I just saw that you reposted with a different test file. I'll try to locate the problem from that, but I can't make any promises.==================================== IteratorModule.d ====================================... -- Justin (a/k/a jcc7) http://jcc_7.tripod.com/d/
Jun 26 2004
Hi Justin and everyone, Thanks for the reply. Yeb, the error you got is one of the two I am getting. If all the d files are compiled together like what you just did, that's the error I am also getting here. If you instead compile each file individually with -c flag, then link all obj files together at the final step, you will get different but related error as I showed in my first post. It seems to me that the compiler forgets to generate necessary code. I tried puting a typedef in order to force template instantiation, it kind of fixed the problem. What I mean here is the problem changed. I am still getting link errors but it's for different class. The problem persist even though I keep putting in more typedefs. So I gave up and flags for help her. Do you or does anyone have any idea what problem I am running into? Thanks, Sukit PS. Thanks for the suggestion to use different client. I will try it. In article <cbkton$148s$1 digitaldaemon.com>, J C Calvarese says...This is a multi-part message in MIME format. --------------030100000705050201050906 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Sukit Tretriluxana wrote:Seems like the system has problems with attachment. If you cannot download the attachment, here is the code in each file + the make file.I think the problem is with the web interface, not the attachment. If a person Mozilla Thunderbird, Outlook, or another newsgroup reader, they shouldn't have a problem. (At least, I didn't have a problem using Thunderbird.) By the way, there's only a delay between posting a message on the web interface and when it shows up on the web. If you could use Thunderbird or Outlook, you'd probably find an easier time of everything. Incidently, the binary .zip file can still be decoded from the web interface by running uudecode (see the attached D source file for instructions if you're interested). Are you using the Digital Mars make program or another? I got an error message: Error on line 21: expecting target : dependencies Well, I've never felt comfortable with make anyways, so I tried the old fashioned way: dmd test.d ArrayListModule.d CollectionModule.d IteratorModule.d ListModule.d This is the error I got (DMD 0.93 on WinXP): ArrayListModule.obj(ArrayListModule) Error 42: Symbol Undefined __Interface_14IteratorModule10Iterator_i8Iterator --- errorlevel 1 Oh, I just saw that you reposted with a different test file. I'll try to locate the problem from that, but I can't make any promises.==================================== IteratorModule.d ====================================... -- Justin (a/k/a jcc7) http://jcc_7.tripod.com/d/ --------------030100000705050201050906 Content-Type: text/plain; name="uudecode.d" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="uudecode.d" /* UUDECODE - a Win32 utility to uudecode single files. Copyright (C) 1998 Clem Dye 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; either version 2 of the License, or (at your option) any later version. 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. Modified 13 July 2001 by Clem Dye to allow any character in the range 0 to 7 in the 'begin' statement within the header of the uuencoded file being decoded. Ported to D: J C Calvarese, 14 May 2004 ************* Instructions ************* Compile: dmd uudecode.d Usage: uudecode.exe d4676.txt (where d4676.txt would be the input file) The input file should start with something like this: "begin 0644 stlport.zip" and end with "end". */ import std.stream; char[] toStringFromChar(char c) /* based on code posted by Helmut Leitner (helmut.leitner chello.at), 23 Oct 2003 at http://www.digitalmars.com/drn-bin/wwwnews?D/18497 */ { char[] s = "?"; s[0] = c; return s; } /* I'll need to do something with this... */ char DEC(char c) { return (c - ' ') & 077; } char[] outname; char[] uudecode (File f) { int n; char ch; char[] buf, p; int pos; File outI = new File(); do { buf = f.readLine(); } while (buf.length < 4 || buf[0..6] == "begin"); pos = 6; while(pos != 0 && find(" 01234567", buf[pos..pos+1]) != -1) pos++; outname = buf[pos..buf.length]; /* Create output file and set mode. */ outI.create(outname, FileMode.Out); /* For each input line: */ while(!f.eof) { buf = f.readLine(); if (buf.length > 2 && buf[0..5] == "end") break; /* n is used to avoid writing out all the characters at the end of the file. */ pos = 0; n = DEC (buf[pos]); if (n <= 0) break; for (++pos; n > 0; /+ p += 4 +/ pos += 4, n -= 3) { p = buf[pos..buf.length]; if (n >= 3) { ch = DEC (p[0]) << 2 | DEC (p[1]) >> 4; outI.write(ch); //fputc(ch,outI); ch = DEC (p[1]) << 4 | DEC (p[2]) >> 2; outI.write(ch); //fputc (ch,outI); ch = DEC (p[2]) << 6 | DEC (p[3]); outI.write(ch); //fputc (ch,outI); } else { if (n >= 1) { ch = DEC (p[0]) << 2 | DEC (p[1]) >> 4; outI.write(ch); } if (n >= 2) { ch = DEC (p[1]) << 4 | DEC (p[2]) >> 2; outI.write(ch); } } } } outI.close(); return outname; } int main(char[][] argv) { File f; int argc = argv.length; debug for(int i; i<argv.length; i++) { printf("Argument %d: %.*s\n", i, argv[i]); } if (argc <= 1) { printf("Usage: %.*s <input file>\n", argv[0]); return 1; } f = new File(argv[1]); /* Check to see if the file is found... */ /+if (f.eof /+f == null +/ ) { printf("I can't find %.*s\n", argv[1]); return 1; }+/ uudecode(f); f.close(); printf("Result decoded in %.*s\n", outname); return 0; } --------------030100000705050201050906--
Jun 27 2004