Caleb's. It could take days to unravel the code by
hand versus the few
minutes needed to send it out to www.srs4uv.com.
From one horror story I read on the site about a
programmer that had sabotaged source code:
The company used the SRS on the object code they were
running. In addition, they
, 2005 11:31 AM
Subject: RE: [U2] Deciphering Pick UniBasic statement
Caleb's. It could take days to unravel the code by
hand versus the few
minutes needed to send it out to www.srs4uv.com.
From one horror story I read on the site about a
programmer that had sabotaged source code
Hello, Charles.
Charles Stevenson wrote...
I have not had occasion to use the srs4uv.com decompiler service.
Probably worth the price when you really need it.
It can be. Just imagine programs with hundreds of lines of code like
Caleb's. It could take days to unravel the code by hand versus the
. O'Rourke
Dan Fitzgerald
From: Stevenson, Charles [EMAIL PROTECTED]
Reply-To: u2-users@listserver.u2ug.org
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Deciphering Pick UniBasic statement
Date: Sat, 10 Dec 2005 01:32:08 -0500
I have not had occasion to use the src4uv.com decompiler
Sent: 08 December 2005 21:26
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Deciphering Pick UniBasic statement
The general consensus of replies confirms my findings of how
this was originally meant to be nested. Thanks for all your help.
Caleb
[EMAIL PROTECTED] 12/08/05 12:09PM
Actually it looks like some case tool code to me not a programmers code.
- Original Message -
From: Brian Leach [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Friday, December 09, 2005 3:01 AM
Subject: RE: [U2] Deciphering Pick UniBasic statement
Caleb,
Just to point out
Hello, Charles.
Charles Stevenson wrote...
Everyone's going to jump in with the answer, but here's a way to figure
it out yourself (on UV, but not UD): Use VLIST.
I don't know which is more painful, the original code or the VLIST output.
;-) I decompiled Caleb's code using the srs4uv.com
I have not had occasion to use the src4uv.com decompiler service.
Probably worth the price when you really need it.
I am thankful for the wonderful www.src4uv.com freebie download,
SRC.UV.HEADER, that allows access to info about the object file from an
I-descriptor subroutine.
Besides VLIST, but
Think of ; as a CR/LF - separate line of code. Hope this helps
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13)=DATE() THEN
CC=CC
END ELSE
INS 1 BEFORE AR(14)1,1
DEL AR(14)1,9
END
END
IF P(2)-AR(12)=28 THEN CC=CC+1; INS 0 BEFORE AR(14)1,1; DEL
AR(14)1,9; ELSE IF AR(13)=DATE() THEN CC=CC ELSE INS 1 BEFORE
AR(14)1,1; DEL AR(14)1,9
Here is my interpretation:
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13)=DATE() THEN
First thing I would do is indent it to make it readable. This is the way I
see it:
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13)=DATE() THEN
CC=CC
END ELSE
INS 1 BEFORE AR(14)1,1
DEL AR(14)1,9
END
END
Larry
My god, who would write a line of basic code like that? Must have been a
former MUMPS programmer.
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE IF AR(13)=DATE() THEN
CC=CC ---huh?
END ELSE
INS 1 BEFORE AR(14)1,1
DEL AR(14)1,9
END
-Original
Caleb Ng [EMAIL PROTECTED] wrote on 12/08/2005 02:10:32 PM:
IF P(2)-AR(12)=28 THEN CC=CC+1; INS 0 BEFORE AR(14)1,1; DEL
AR(14)1,9; ELSE IF AR(13)=DATE() THEN CC=CC ELSE INS 1 BEFORE
AR(14)1,1; DEL AR(14)1,9
OK, this is some kind of test, right? Nobody actually put that mess in
production
- Original Message -
From: Caleb Ng [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Thursday, December 08, 2005 2:10 PM
Subject: [U2] Deciphering Pick UniBasic statement
I'm trying to decipher and break the following IF/THEN/ELSE statement
into multiple lines because I need
How about:
IF P(2) - AR(12) = 28 THEN
CC = CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13) = DATE() THEN
CC = CC
END ELSE
INS 1 BEFORE AR(14)1,1
DEL AR(14)1,9
END
END
===
Norman
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13)=DATE() THEN
CC=CC ELSE INS 1 BEFORE AR(14)1,1
DEL
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
DEL AR(14)1,9
END ELSE
IF AR(13)=DATE() THEN
CC=CC
END ELSE
INS 1 BEFORE AR(14)1,1
DEL AR(14)1,9
END
END
- Original Message -
From: Caleb Ng [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent:
Several years go I wrote a utility to clean source code for Unidata, for this
very same reason. The utility added END statements when need. It also accounted
for all Unidata functions, Verbs. An added feature that I was not able to
complete, due to time, was a flowchart. A second program would
Everyone's going to jump in with the answer, but here's a way to figure
it out yourself (on UV, but not UD): Use VLIST.
Compile the program, then VBLIST will decompile the object (pcode) into
an assembler-kinda-looking output you can see step by step what's
happening.
CT CDS.BP CALEB
The general consensus of replies confirms my findings of how this was
originally meant to be nested. Thanks for all your help.
Caleb
[EMAIL PROTECTED] 12/08/05 12:09PM
IF P(2)-AR(12)=28 THEN
CC=CC+1
INS 0 BEFORE AR(14)1,1
20 matches
Mail list logo