KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-12-08 20:38:47 +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

25
samples/M/arrays.m Normal file
View File

@@ -0,0 +1,25 @@
start ; create student data
set student("name","first")="Linus"
set student("name","last")="Torvalds"
set student("language")="C"
set student("classes","monday")="Algebra"
set student("classes","tuesday")="Geometry"
set student("classes","wednesday")="English"
set student("classes","thursday")="French"
set student("classes","friday")="Jujitsu"
zwrite student
write $order(student)
write !,"Student array top level",!
set x=""
for do quit:x=""
. set x=$order(student(x))
. write x,!
write !,"Student classes ",!
set x=""
for do quit:x=""
. set x=$order(student("classes",x))
. write:x'="" x," : ",student("classes",x),!
quit