It is currently Tue Mar 19, 2024 3:18 am


All times are UTC - 8 hours [ DST ]




Post new topic Reply to topic  [ 76 posts ]  Go to page Previous  1 ... 4, 5, 6, 7, 8  Next
Author Message
 Post subject: Re: More MUMPS V1 utility
PostPosted: Sat Jan 14, 2012 12:31 pm 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hi "Art"

The new web-homepage is FREE : www.cais-system.weebly.com
In this page/links , available more MV1 utilities and the new CACHE-MV1 object migration ....

Good works ....

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Tue Apr 10, 2012 1:36 pm 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hi All

The new version of MV1SysTray 2.3 available on Sourceforge , or :
http://cais-system.weebly.com/mv1systray-for-linux.html

News :

- New MV1Studio 1.3 , multi editor mode (loading MUMPS source up to 100 routines)
- gambas program arguments :
Runing only MV1Studio 1.3 = ./MV1Tray2.gambas Studio
Runing only MV1GlobalEditor = ./MV1Tray2.gambas Geditor


Attachments:
Studio1_3.jpg
Studio1_3.jpg [ 54.17 KiB | Viewed 67944 times ]

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]
Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Thu May 03, 2012 2:47 pm 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hi

On this link available MumpsV1 Cross-System-Journaling utility package :
http://sourceforge.net/projects/mv1syst ... g%20Tech./

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Thu May 03, 2012 2:49 pm 
User avatar

Joined: Mon Nov 01, 2010 3:33 pm
Posts: 104
Location: Australia
Real Name: Ray Newman
Began Programming in MUMPS: 01 Jul 1976
Thanks Josef.

Ray


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Fri May 04, 2012 1:57 pm 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
.... and CSJ GUI manager available in NEW MV1SysTray 2.4.12 on 'sourceforge'


Attachments:
CSJStart.JPG
CSJStart.JPG [ 139.05 KiB | Viewed 67820 times ]

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]
Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Fri May 25, 2012 4:30 am 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
HI All,

The caOBJECTFactory integrated in MV1SysTray2.5 available :
http://cais-system.weebly.com/caobject- ... gouml.html

and MV1SysTray2.5 : http://cais-system.weebly.com/mv1systray-for-linux.html
if use only caOBJECTFactory-IDE : ./MV1Tray2.gambas caOBJFactory

Updated the caOBJECT PDF documentation , for multidimensional-object-storage .

Enjoy FREE !


Attachments:
caOBJF2.jpg
caOBJF2.jpg [ 198.97 KiB | Viewed 67705 times ]

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]
Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Fri Jul 20, 2012 4:45 am 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hi All

The new version of MV1Tray2.5.38 available .
Include the new version of CSJ/Shadowing .
Recommended MV1 version : MumpsV1.58
http://sourceforge.net/projects/mv1syst ... /MV1Tray2/

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Sun Aug 12, 2012 1:53 pm 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hi

The command line MV1 server(configured MV1SysTray2.x !) administration utility available on : http://sourceforge.net/projects/mv1syst ... V1Sysctrl/?

Usage: MV1Sysctrl option
available options : START = Start MV1 Server configured as 'mv1.mcf'
STOP = Stop MV1 Server
STATUS = Show MV1 Server ON/OFF
CONFIG = Show the Server configurations
CONLOG = Show the 'console.log' file
VER = Show MV1Sysctrl version

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Sun May 05, 2013 4:58 am 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
some help to manipulation MV1 routines (%RSEL,%RCOPY)

%RSEL ;Do routine selector [ 05/05/2013 13:42 PM ]
;Interactive 'internal' usage : S %INT=1 D RU^%RSEL
; S %INT=1 D RR^%RSEL
;Internal usage : D INT^%RSEL(1,UCI,RTN)
W !," MV1 Routine selector",! K %INT
RU R !,"Seletc UCI:",UCI I $G(UCI)="" S UCIN=$G(^$J($J,"GLOBAL")),UCI=^$S("VOL",1,"UCI",UCIN) W UCI
W:UCI="?" !,"Available UCI's: "
S TR=0,UN="" F S UN=$O(^$S("VOL",1,"UCI",UN)) Q:UN="" D
.S UNN=$G(^$S("VOL",1,"UCI",UN)) W:UCI="?" UNN_" " S:UNN=UCI TR=1
G:UCI="?" RU I 'TR W !,"Invalid UCI...." G RU
RR R !,"Routine(s):",RTN I RTN="" S RTN="*" W RTN
S %INT=$G(%INT,0) D INT(%INT,$G(UCI),$G(RTN)) Q
INT(%INT,UCI,RTN) ;Internal usage %INT=0 to display , %INT=1 to ^MTEMP($J,.. , %INT=-1 dysplay sum()
S RTN=$G(RTN) I RTN="" S RTN="*"
S UCI=$G(UCI) I $G(UCI)="" S UCIN=$G(^$J($J,"GLOBAL")),UCI=^$S("VOL",1,"UCI",UCIN)
S %INT=$G(%INT,0),CNT=0 K SEL,^MTEMP($J) D INT^%RD(3,RTN,UCI)
W:'%INT ! S N="" F S N=$O(SEL(N)) Q:N="" W:'%INT !,N S:%INT ^MTEMP($J,N)=N S CNT=CNT+1
W:%INT=-1 !,CNT_" selected."
Q


;Routine Copy utility [ 05/05/2013 13:54 PM ]
W !," MV1 routine copy utility",!
S %INT=-1 D RU^%RSEL S UCI=$G(UCI)
RU R !,"Destination UCI:",DUCI Q:DUCI="" W:DUCI="?" !,"Available UCI's: "
S TR=0,UN="" F S UN=$O(^$S("VOL",1,"UCI",UN)) Q:UN="" D
.S UNN=$G(^$S("VOL",1,"UCI",UN)) W:DUCI="?" UNN_" " S:UNN=DUCI TR=1
G:DUCI="?" RU I 'TR W !,"Invalid UCI...." G RU
I UCI=DUCI W !,"** Source=Destination ?? Quit" Q
S RTN="",RCN=0 F S RTN=$O(^MTEMP($J,RTN)) Q:RTN="" D
.M ^[DUCI]$R(RTN)=^[UCI]$R(RTN) S RCN=RCN+1
W !,RCN_" copied."
Q

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Sun May 12, 2013 7:38 am 
User avatar

Joined: Sun Mar 27, 2011 8:12 am
Posts: 87
Location: Europe , HUNGARY
Real Name: Josef Nagy
Began Programming in MUMPS: 0- 0-1991
Hex <=> Dec converter routine :

Code:
%ZHEX(%num,%ns)  ;Hexadecimal<->Decimal converter [ 05/12/2013 16:29 PM ]
      N (%num,%ns)
      S %num=$G(%num),%ns=$G(%ns,"H"),%ret=0 D In G:%ns="D" Dec
      S %ret="" F  Q:'(%num\16)  D
      .S %nx=1,%df=17 F  Q:(%df<16)  S %nx=%nx*16,%df=%num\%nx
      .S %num=%num-(%nx*%df),%ret=%ret_DECT(%df)
      S %ret=%ret_DECT(%num) Q %ret
Dec   ;Convert HEX to DEC
      S %b=1,%bx=16,%l=$L(%num) F ii=%l:-1:1 S %x=$E(%num,ii),%ret=%ret+(%b*HEXT(%x)),%b=%b*%bx
      Q %ret
In    ;Hex table
      K HEXT S ii=0
      F ix="0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"  D
      .S HEXT(ix)=ii,DECT(ii)=ix,ii=ii+1
      Q


eX. from Dec to Hex
W $$^%ZHEX("56986561164687","H")
33D437BC358F

ex. from Hex to Dec
W $$^%ZHEX("33D437BC358F","D")
56986561164687

_________________
Josef Nagy
[MUMPS based industrial application in Processing Controll (MCU/PLC/MUX)]


Top
Offline Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 76 posts ]  Go to page Previous  1 ... 4, 5, 6, 7, 8  Next

All times are UTC - 8 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Theme created StylerBB.net