It is currently Tue Mar 19, 2024 12:06 am


All times are UTC - 8 hours [ DST ]




Post new topic Reply to topic  [ 76 posts ]  Go to page 1, 2, 3, 4, 5 ... 8  Next
Author Message
 Post subject: More MUMPS V1 utility
PostPosted: Sun Mar 27, 2011 8: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 , Mumpsters

Im now experience with MUMPS V1 . My first "M" job on 1991 with MSM-PC Plus system . Later we (my little group) migrated some MSM installation to InterSystems CACHE . Before 2 years we starting on OpenSource platform , changing Microsoft OS to Unix/Linux (and back to MUMPS, because in InterSystems CACHE have more embeded programing language , etc...), now use Ubuntu on desktop side . The debian distribution package of MUMPS V1 is perfect .

Have some/more MUMPS utility for MUMPS V1 ?

ex.: Global Editor use the $EDITOR
------------------------------------------------------
%GED ;Edit a global using $EDITOR
;--------------------------------------------
;JN;2011 'CaIS-SYSTEM' use Standard %GS & %GR
;--------------------------------------------
R !,"Global: ",GLO,! Q:GLO="" D INT(GLO) Q
INT(GLO,RO,UI,FILE,F,%,ZR) S ZR="^%GED",RO=$G(RO) I $G(GLO)="" Q
CONT S GLR="^"_GLO I 'RO S X="L +"_GLR_":1" X X E W !,"?Can't lock global "_GLO,! Q
I RO,'$D(@GLR) W !,"?No such global "_GLO,! Q
S UI=$$UI^%U()
D INT^%GD(3,GLO,^$J($J,"GLOBAL"),"","z","^UTILITY("_UI_")")
S FILE=GLO_"."_UI
;Call %RS utility
D INT^%GS(GLO,FILE,"Editing")
S F=$&%GETENV("EDITOR") S:F="" F="vi" S F=F_" "_FILE
I $E(F)="x",RO S F=F_"&"
I $P(F," ")="vi" S F="stty onlcr;"_F_";stty -onlcr"
;Go EDITOR
S %=$&%SPAWN(F)
;Close File
I RO H 4 O 1:(FILE:"W") C 1 Q
;Call %GR utility
D INT^%GR(FILE,1)
EXIT U 0 C 1 O 1:(FILE:"W") C 1
S GLR="^"_GLO I 'RO S X="L -"_GLR_":1" X X
Q
-----------------------------------------------------------------------------

Thank
Josef

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


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Tue Mar 29, 2011 12:42 pm 
User avatar

Joined: Wed Nov 17, 2010 4:02 pm
Posts: 71
Location: Houston TX
Real Name: David Whitten
Began Programming in MUMPS: 06 Jan 1982
I haven't seen code using $%& before this. Is that prefix supported by MUMPS V1 ?


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Tue Mar 29, 2011 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 David

The $%& syntax is a standard Xcall (OS call) function handler of MUMPS V1 .
If You set the EDITOR environment , will run Your better editor for editing routine/global .
Im use on Ubuntu (grafix disp.GNOME) , the "geditor" or better the "Jedit" (special Java program editor with commands highlights , etc...) .

ex.:
;Change 'vi' editor to 'gedit/jedit/nedit ...' on Ubuntu Linux GNOME
S dummy=$&%SETENV("EDITOR","/home/none/ext/jedit/nedit/nedit")
;Go EDITOR
S %=$&%SPAWN(F)

For Xcall function , see a MUMPS V1 Xcall's documentation on this site ...

Josef

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


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Tue Mar 29, 2011 3:26 pm 
User avatar

Joined: Wed Nov 17, 2010 8:37 am
Posts: 136
Real Name: Terry L. Wiechmann
Began Programming in MUMPS: 0- 0-1971
Part of the 95 Standard. Used to access programs external to the MUMPS environment. Some are supplied as a part of the system: http://mv1.mumps.org/xcalls.html

IMHO MUMPSV1 has the potential to be a superb MUMPS system in the spirit of the original design and intention of it's authors. It needs people with C experience to work on it.

_________________
Terry L. Wiechmann


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Wed Mar 30, 2011 9:53 am 
User avatar

Joined: Wed Nov 17, 2010 8:37 am
Posts: 136
Real Name: Terry L. Wiechmann
Began Programming in MUMPS: 0- 0-1971
Specifically per the 95 specification:

exvar ::= $ | $ labelref | ;Section 7.1.4.9
| externref |

externref ::= & [packagename . ] externalroutinename ;Section 8.1.6.3

packagename ::= name

externalroutinename ::= name [ ^ name ]

name ::= | % or ident | [ digit or ident ] ... ;Section 5

Hope I got it right?

_________________
Terry L. Wiechmann


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Wed Mar 30, 2011 1:19 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
Terry

You can a available link for MUMMPS '95 specification/DOC/HTML on web ?

Tanx
Josef

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


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Wed Mar 30, 2011 1:38 pm 
User avatar

Joined: Wed Nov 17, 2010 8:37 am
Posts: 136
Real Name: Terry L. Wiechmann
Began Programming in MUMPS: 0- 0-1971
I don't think it is available because it is copyrighted and for sale. I'm sure someone else on this forum can give you a better answer.

_________________
Terry L. Wiechmann


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Wed Apr 06, 2011 12:23 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
Terry

Im now learning the ESIObject . I think , this software is a better (fantastic development) choice for develop with object in M systems . In Intersystems CACHE we use only persistent object with Studio/ObjectArchitect utility . The ESIObject runtime .EXE is same utility . I read in AdminGuide.pdf this M server side support on MSM , DMS , GT.M . This object technology (ESIObject) possible use on MUMPS V1 system ?
Which component need for MUMPS V1 for ESIObject ? Same as GT.M ?

Thanx
Josef

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


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Wed Apr 06, 2011 4:34 pm 
User avatar

Joined: Wed Nov 17, 2010 8:37 am
Posts: 136
Real Name: Terry L. Wiechmann
Began Programming in MUMPS: 0- 0-1971
Ah! EsiObjects - I think I know something about that product...

I put out a new version a while back (about a year ago).

It runs on Cache but that is not the system of choice for obvious reasons.

It also runs on GT.M. It offers a fully Open Source stack (Linux/GT.M/EsiObjects) which means the price is right!

The only negative about EO is the client must run on a Windows Box since it is written in C++ using the MFC. New clients were attempted but never completed. One is GEODE which can be found on Source Forge and the other was with NetBeans. Of course, you can run Windows and the client in VirtualBox (or VMWare) if you do not have Windows on a PC.

I spent lots of time trying to get it to run on MUMPSV1. I ran into a bug with $Text and indirection which EsiObjects uses lots of - about 100 references. Ray Newman helped me get some of it working but not all. Unfortunately it was never completed. What we need is a good C programmer that would be willing to take it on as a project.

BTW - If anyone wants to ever run File Manager on MUMPSV1, the $Text bug will have to be fixed since it references it around 50 times.

You might be asking why do EsiObjects and File Manger use $Text so much with indirection - because they are development environments that generate code.

Personally I would like to see a separate forum topic titled Object Orientation and MUMPS (or something like that) where we can discuss 21st century OO issues... :o

_________________
Terry L. Wiechmann


Top
Offline Profile  
 
 Post subject: Re: More MUMPS V1 utility
PostPosted: Tue May 17, 2011 3:23 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
Hello Everybody

On this link available a simple TCP/IP server in MUMPS V1 , if use this server call's , then make easy GUI application on Ubuntu-Linux , MS-Windows , etc... with MUMPS V1 server CONNECT .
Set,Get data from/to Client-MUMPS V1 server . Call , Do , Execute MUMPS routine/function .

In packed file : PDF documentation , MUMPS souce code .ROU , tcpp2.exe
tcpp2.exe a simple tester program for MUMPS TCP/IP server .

enjoy : http://www.cais-system.com/temp/MUMPS/CaIPSRV.zip

Josef

_________________
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 1, 2, 3, 4, 5 ... 8  Next

All times are UTC - 8 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 3 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:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Theme created StylerBB.net