KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merged with upstream. Updated M (aka MUMPS) detection to use the new bayesian / samples method.

Browse Source
This commit is contained in:
Laurent Parenteau
2013-03-14 11:33:09 -04:00
parent 46cde87c09 a20631af04
commit 58420f62d9
472 changed files with 179182 additions and 1762 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
samples/M/dynamicscoping.m Normal file
View File

@@ -0,0 +1,42 @@
;------------------------------------
; These first two routines illustrate
; the dynamic scope of variables in M
;------------------------------------
triangle1(x) ;;
set sum=0
for do quit:x'>1
. set sum=sum+x
. set x=x-1
quit sum
main1() ;;
set sum=1500
set x=6
write "sum before=",sum,!
set y=$$triangle1(x)
write "sum after=",sum,!
write "triangle of ",x," is ",y,!
quit
;------------------------------------
; These next two routines illustrate
; the use of the NEW command to make
; variables limited to the local scope
;------------------------------------
triangle2(x) ;;
new sum ; <-- HERE !!
set sum=0
for do quit:x'>1
. set sum=sum+x
. set x=x-1
quit sum
main2() ;;
set sum=1500
set x=6
write "sum before=",sum,!
set y=$$triangle2(x)
write "sum after=",sum,!
write "triangle of ",x," is ",y,!
quit