Skip to content

Instantly share code, notes, and snippets.

@sween
Created November 10, 2016 13:14
Show Gist options
  • Save sween/748b3f1e8b396ebafdf9f59d4f9c67e5 to your computer and use it in GitHub Desktop.
Save sween/748b3f1e8b396ebafdf9f59d4f9c67e5 to your computer and use it in GitHub Desktop.
Exports a class, modifies a line in it, then puts it back hack yeah.
PS ;
K ^TClassHub
N exportStatus,F,C,STR
S F="/tmp/test.txt"
C F
set exportStatus = $System.OBJ.Export("HSPD.Production.MDMHub.CLS", F)
do ##class(%SYSTEM.Process).SetZEOF(1)
O F:"R"
S C=1
F U F R STR Q:$zeof D
.U 0 W STR,!
.I STR["Set:'tIsUpgrade tSC=..LoadCodeTables()" S STR=$c(9,9)_"//Set:'tIsUpgrade tSC=..LoadCodeTables()"
.S ^TClassHub(C)=STR
.S C=C+1
.Q
C F
S F="/tmp/fixed.txt"
O F:"WNS"
F I=1:1:$O(^TClassHub(""),-1) U F W ^TClassHub(I),!
C F
Do $system.OBJ.Load("/tmp/fixed.txt","ck")
Q
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment