from Word formatting to lower

Author: daimor

.vscode/settings.json

@@ -6,10 +6,11 @@
     "ns": "SAMPLES",
   },
   "objectscript.format": {
-    "commandCase": "word",
-    "functionCase": "word"
+    "commandCase": "lower",
+    "functionCase": "lower"
   },
   "objectscript.export": {
     "folder": "src",
+    "addCategory": false
   }
 }

src/ObjectScript/DataEntry1.cls

@@ -3,15 +3,15 @@ Class ObjectScript.DataEntry1
 
 ClassMethod Main()
 {
-  Read !, "Name: " , name
-  If name = "" { quit }  // user entered nothing
-  Read !, "Phone: ", phone
-  Read !, "DOB: ", dob
+  read !, "Name: " , name
+  if name = "" { quit }  // user entered nothing
+  read !, "Phone: ", phone
+  read !, "DOB: ", dob
 
   // display the data
-  Write !!!, "Name:", ?20, name
-  Write !, "Phone:", ?20, phone
-  Write !, "DOB:", ?20, dob
+  write !!!, "Name:", ?20, name
+  write !, "Phone:", ?20, phone
+  write !, "DOB:", ?20, dob
 }
 
 }

src/ObjectScript/DataEntry2.cls

@@ -4,29 +4,29 @@ Class ObjectScript.DataEntry2
 /// Main loop section
 ClassMethod Main()
 {
-  While ..Prompt() {
-    Do ..Display()
+  while ..Prompt() {
+    do ..Display()
   }
 }
 
 /// prompt
 ClassMethod Prompt() As %Boolean [ PublicList = (name, phone, dob) ]
 {
-  Read !, "Name: ", name
-  Return:(name = "") 0  // user entered nothing so return FALSE and exit method
-  Read !, "Phone: ", phone
-  Read !, "DOB: ", dob
-  Return 1  // return true
+  read !, "Name: ", name
+  return:(name = "") 0  // user entered nothing so return FALSE and exit method
+  read !, "Phone: ", phone
+  read !, "DOB: ", dob
+  return 1  // return true
 }
 
 /// display the data
 ClassMethod Display() [ PublicList = (name, phone, dob) ]
 {
-  Write !!, "========================================"
-  Write !, "Name:", ?20, name
-  Write !, "Phone:", ?20, phone
-  Write !, "DOB:", ?20, dob
-  Write !, "========================================", !
+  write !!, "========================================"
+  write !, "Name:", ?20, name
+  write !, "Phone:", ?20, phone
+  write !, "DOB:", ?20, dob
+  write !, "========================================", !
 }
 
 }

src/ObjectScript/DataEntry3.cls

@@ -4,92 +4,90 @@ Class ObjectScript.DataEntry3
 /// Main loop section
 ClassMethod Main()
 {
-  While ..Prompt(.answers) {       
-    Do ..Display(answers)
+  while ..Prompt(.answers) {       
+    do ..Display(answers)
   }
 }
 
 /// prompt
 ClassMethod Prompt(ByRef answers As %String) As %Boolean
 {
-  Do {
-    Read !, "Name: ", name
-    Return:(name = "") 0  // user entered nothing so return FALSE, exit loop AND method
-  }
-  While '..ValidName(name)
+  do {
+    read !, "Name: ", name
+    return:(name = "") 0  // user entered nothing so return FALSE, exit loop AND method
+  } while '..ValidName(name)
 
-  Do {
-    Read !, "Phone (617): ", phone
-  }
-  While '..ValidPhone(.phone)
+  do {
+    read !, "Phone (617): ", phone
+  } while '..ValidPhone(.phone)
 
-  Do {
-    Read !, "DOB: ", dob
-  }
-  While '..ValidDOB(dob, .intdob)
-  Set answers = $Listbuild(name, phone, intdob)
-  Return 1  // return true
+  do {
+    read !, "DOB: ", dob
+  } while '..ValidDOB(dob, .intdob)
+  set answers = $listbuild(name, phone, intdob)
+  return 1  // return true
 }
 
 /// use pattern match to validate a name in "Last,First" format.
 /// write error message if invalid
 ClassMethod ValidName(name As %String) As %Boolean
 {
-  If (name?1U.L1","1U.L) {
-    Return 1 }
-    Else {
-      Write !,"Last,First"
-      Return 0
-    }
+  if (name?1U.L1","1U.L) {
+    return 1 
+  }
+  else {
+    write !,"Last,First"
+    return 0
+  }
 }
 
-/// use RegEx ($Match) to validate a phone in "###-####" or "###-###-####" format.
+/// use RegEx ($match) to validate a phone in "###-####" or "###-###-####" format.
 /// returns the converted phone by reference
 /// write error message if invalid
 ClassMethod ValidPhone(ByRef phone As %String) As %Boolean
 {
-  If $Match(phone, "(\d{3}-)?\d{3}-\d{4}") {
-    Set:($Match(phone, "\d{3}-\d{4}")) phone = "617-" _ phone  // add default area code
-    Return 1
+  if $match(phone, "(\d{3}-)?\d{3}-\d{4}") {
+    set:($match(phone, "\d{3}-\d{4}")) phone = "617-" _ phone  // add default area code
+    return 1
   }
-  Else {
-    Write !, "###-###-#### or ###-####"
-    Return 0
+  else {
+    write !, "###-###-#### or ###-####"
+    return 0
   }
 }
 
-/// validate a date of birth using $ZDateh and $Horolog
+/// validate a date of birth using $zdateh and $horolog
 /// returns the internal form of the date of birth by reference
 /// write error message if invalid
 ClassMethod ValidDOB(date As %String, Output convdate As %Date) As %Boolean
 {
-  Set convdate = $ZDateh(date, 5,,,,,,, -1)
-  If (convdate = -1) {
-    Write !,"Must be a valid past date"
-    Return 0  // invalid date
+  set convdate = $zdateh(date, 5,,,,,,, -1)
+  if (convdate = -1) {
+    write !,"Must be a valid past date"
+    return 0  // invalid date
   }
-  ElseIf (convdate > $Piece($Horolog, ",", 1)) {
-    Write !,"Must be a valid past date"
-    Return 0  // invalid because it's in the future
+  elseif (convdate > $piece($horolog, ",", 1)) {
+    write !,"Must be a valid past date"
+    return 0  // invalid because it's in the future
   }
-  Else {
-    Return 1  // valid date
+  else {
+    return 1  // valid date
   }
 }
 
 /// display the data
 ClassMethod Display(answers As %String)
 {
-  Set $Listbuild(name, phone, intdob) = answers
+  set $listbuild(name, phone, intdob) = answers
 	/* the line above is equivalent to
-  Set name = $List(answers, 1),
-  phone = $List(answers, 2),
-  intdob = $List(answers, 3) */
-  Write !!, "========================================"
-  Write !, "Name:", ?20, name
-  Write !, "Phone:", ?20, phone
-  Write !, "DOB:", ?20, $ZDate(intdob, 2)
-  Write !, "========================================", !
+  set name = $list(answers, 1),
+  phone = $list(answers, 2),
+  intdob = $list(answers, 3) */
+  write !!, "========================================"
+  write !, "Name:", ?20, name
+  write !, "Phone:", ?20, phone
+  write !, "DOB:", ?20, $zdate(intdob, 2)
+  write !, "========================================", !
 }
 
 }