3 ms·
The code looks like this: ``` I X?1.N1"H" S X=X3600,%H=$H,@("X=$P(%H,"","",2)"_Y_X),%=$S(X<0:- 1,1:0)+(X\86400),X=X#86400,%H=$P(%H,",")+%_","_X G RT
by junofan 4y ago
The code looks like this:
```
I X?1.N1"H" S X=X3600,%H=$H,@("X=$P(%H,"","",2)"_Y_X),%=$S(X<0:-
1,1:0)+(X\86400),X=X#86400,%H=$P(%H,",")+%_","_X G RT
D DMW G 1^%DT:'% S @("%H=$H"_Y_%),%H=%H_","_$P($H,",",2)
RT D TT S %=$P(%H,",",2) D S S %=X_% I %DT'["S" S %=+$E(%,1,12)
Q:'$D(%(0)) S Y=% G E^%DT
PF S %H=$H D YMD S %(9)=X,X=%DT["F"2-1 I @("%I(1)*100+%I(2)"_$E(">
<",X+2)_"$E(%(9),4,7)") S %I(3)=%I(3)+X
```
I mean, I can see why reimplementing could be scary even with org churn.
- yuretz 4y agoWhat language is it?
- Ndymium 4y agoFrom the context I'm guessing MUMPS, and it kinda seems to resemble it, if it had more line breaks: https://github.com/programarivm/mumps-examples/blob/f160bfb6660298a2868b24beba20089fef9429dd/06-databases/basic-sql-crud/Main.m https://github.com/programarivm/mumps-examples/blob/f160bfb6...
- peteradio 4y agoBinary looks like this 010100101001010 or something, surely the task of writing a mumps parser is long done?
- adolph 4y agoThat is from VA Fileman, right? I did a "lite" replatforming a few years ago. https://www.hardhats.org/fileman/pm/index.htm https://www.hardhats.org/fileman/pm/index.htm