1. Re: Translate from Pascal to Euphoria -- CChris has done!!!
Well, you'll thank me when your program runs! I haven't coded much in Pascal
for the last 10 years. As a result, I made some assertions about I/O which
may work... or not.
I think you won't have much to tweak in order to get a working program.
It can be made simpler if you don't use the formatted file format of Pascal.
Howvever, you may need to convert old files to flat files if you do. Let me
know how things keep going.
CChris
Paulo Fernandes wrote:
>
>
> Hello, CChris!!
>
> I have no words to thank you for the work.
> I am deep thank you very much! It was very
> kindness of you!
> And the most important: your translation is
> a true lesson for me and for others, of course
> (today or in the future)!!
> I intend, now, make a study on your annotations
> and put the new program to run!
>
> Merci beacoup. Santé et Bonne Chance!
>
> Paulo Fernandes
> Brazil
>
>
> CChris wrote:
> > ..................
> >
> > Here is a translation attempt. I haven't programmed in Pascal for a while,
> > so I may have forgotten about subtleties of buffered and formatted file I/O.
> > I left translation notes to help you see hw I translated nontrivial parts.
> > Don't assume it will have the right formatting out of the box. For this sort
> > of stuff, Pascal is way easier to write code with.
> >
> > CChris
> >
> > -- TR: {} comment brackets are replaced by trailing -- comments
> > ----------------------------------------------------------------------
> > -- * Prog.: MyProg.pas
> > -- * Data : 19/05/2007
> > -- * Obs. : Faz trabalho parcial de outro software
> > -- *----------------------------------------------------------------------
> > -- TR: call your file MyProg.ex, and process cmd line therein
> > -- Program MyProg (p1, p2, p3);
> > -- TR: not needed, as we are going to use cross platform I/O routines
> > -- Uses Dos;
> > constant TAMBLOCO = 10000,
> > NUMJOGOS = 14
> > integer totCPs
> > integer limTol
> > -- aCPs : array [1..TAMBLOCO] of string[NUMJOGOS];
> > -- TR: Eu doesn't know about arrays or typed sequences. This data will be
> > used
> > at initialisation time
> > sequence aCPs
> > -- mMgs : array [1..TAMBLOCO,1..4] of byte;
> > sequence mMgs
> > ----------------------------------------------------------------------
> > procedure MostHora()
> > sequence s1, s2
> > -- TR: files are represented by integer handles
> > integer f9
> > -- TR: Eu doesn't know about instruction groups
> > -- begin
> > -- TR: '\' must be escaped in manifest strings, as it is the escape
> > character
> > s1="C:\\Windows\\System32\\Cmd.exe "
> > s2="/C Time < C:\\Enter. > Wrk09.txt"
> > -- exec(s1,s2);
> > -- TR: please refer to the date() and time() commands. I don't know if the
> > formats
> > are the same as yours.
> > system_exec(s1 & s2,2)
> > -- assign(f9,'Wrk09.txt');
> > -- reset (f9);
> > f9 = open("Wrk09.txt","r")
> > -- readln(f9,s1);
> > s1 = gets(f9)
> > close (f9)
> > -- s2:=copy(s1,13,20);
> > s2 = s1[13..13+20-1]
> > -- write(s2);
> > -- TR: 1 is standard output
> > puts(1,s2)
> > end procedure
> >
> > constant FieldSeparator = ',' -- hopefully
> > include get.e
> >
> > function split(sequence s)
> > -- This convrts a flat comme separated record into parts
> > -- converting numeric text to values
> > integer pos
> > sequence field,result
> >
> > result={}
> > while 1 do
> > pos=find(FieldSeparator,s)
> > field = value(s)
> > if field[1] = GET_SUCCESS then -- number
> > result &= field[2]
> > else -- text
> > if pos>0 then
> > result=append(result,s[1..pos-1])
> > else
> > result=append(result,s)
> > end if
> > end if
> > if pos=0 then exit
> > else s=s[pos+1..$]
> > end if
> > end while
> > return result
> > end function
> > ----------------------------------------------------------------------
> > procedure PegaCPs()
> > > var comb : string[NUMJOGOS];
> > -- TR: this may be an integer as it will receive the gets() output
> > object comb
> > integer i, j
> > integer f1
> > -- TR: needed to read the blocks
> > -- begin
> > MostHora()
> > -- writeln('--Pegando CPs...');
> > -- TR: The line break must be explicits
> > puts(1,"\n--Pegando CPs...\n")
> > -- assign (f1,'KillCPs.txt');
> > -- reset (f1);
> > f1 = open("KillCPs.txt'","r")
> > totCPs=1
> > -- TR: must initialise sequences before writing to them
> > 3Mgs = repeat(0,TAMBLOCO)
> > aCPs = repeat(0,TAMBLOCO)
> > -- while not(eof(f1)) do begin
> > -- TR: There is no eof(), use the type of what gets() returns
> > while 1 do
> > -- read(f1,comb);
> > comb = gets(f1)
> > if atom(comb) then exit end if
> > -- TR: I assumed your record format is: a
> > string,comma,byte1,comma,byte2,comma,byte3,comma,byte4,lineTol
> > -- TR: the string being at most NUMJOGOS char long.
> > comb = split(comb)
> > aCPs[totCPs]= comb[1]
> > -- for i=1 to 4 do --lê limites
> > -- read(f1,mMgs[totCPs,i]);
> > -- end for
> > mMgs[totCPs] = comb[2..5]
> > -- read(f1,limTol);
> > limTol = comb[$]
> > -- readln(f1);
> > totCPs+=1
> > end while
> > totCPs-=1
> > for i=1 to totCPs do
> > -- write(aCPs[i]:NUMJOGOS);
> > -- TR: can't use constants in formats directly
> > -- TR: you'd have to build a format string and then apply it
> > -- TR: I also assumed you want left justified text. Remove the '-' to get
> > right
> > justification.
> > printf(1,"%-14s",{aCPs[i]})
> > for j=1 to 4 do
> > printf(1,"%-3s",{mMgs[i][j]})
> > end for
> > printf(1,"%-3s",{limTol})
> > -- writeln('');
> > puts(1,'\n')
> > end for
> > close(f1)
> > end procedure
> > ----------------------------------------------------------------------
> > constant false = 0, true = not false
> > procedure Expurga (sequence arqEnt,sequence arqSai,sequence arqRes)
> > object comb -- : string[NUMJOGOS];
> > integer f1, f2, f3
> > integer iReg, oks
> > integer i, j, nTol
> > integer nPts
> > atom perc
> > -- no builtin boolean type, although it was requested many times
> > integer eBoa
> > sequence splComb
> > MostHora()
> > puts(1,"\n--Fazendo Expurgo...\n")
> > -- assign (f1,arqEnt);
> > -- reset (f1);
> > f1 = open(arqEnt,"r")
> > -- assign (f2,arqSai);
> > -- rewrite(f2);
> > f2 = open(arqSai,"w")
> > iReg=0 oks=0
> > while 1 do
> > comb = gets(f1)
> > if atom(comb) then exit end if
> > iReg+=1
> > eBoa=true
> > nTol=0
> > splComb = split(comb)
> > for i=1 to totCPs do
> > nPts=0
> > for j=1 to NUMJOGOS do
> > > if splComb[j]=aCPs[i][j] then
> > nPts+=1
> > end if
> > end for
> > if nPts < mMgs[i][1]) or (nPts > mMgs[i][2]) then
> > nTol+=1
> > if nTol > limTol then
<snip>
