MUMPS routine for reading INI files

jollis · **Posted:** Wed Feb 20, 2013 10:22 pm

Here's a MUMPS routine for reading INI files in the following format:

[Section]
key1=value1
key2=value2

Code:

KBBMINI ;CLD/JOLLIS-INI FILE TOOLS ;8:58 PM 2-20-2013
 ;;0.1;CLIME;****;Feb. 20, 2013

STRGET(FILE,SECTION,KEY)
 N LINE,SECMAT,INSEC,RETVAL S SECMAT="["_SECTION_"]"
 S INSEC=0 S RETVAL=""
 O FILE:(READONLY)
 F  K LINE U FILE R LINE Q:$ZEOF  D
 .I LINE[SECMAT S INSEC=1
 .I INSEC=1 D
 ..S TMPKEY=$P(LINE,"=",1)
 ..I TMPKEY=KEY S RETVAL=$P(LINE,"=",2)
 C FILE
 U $P
 Q RETVAL

FILE must contain the full path to the INI file.

MUMPS routine for reading INI files

Who is online