*! 1.1.0  Jeroen Weesie/ICS (June '97)  STB-39 ip19

program define exprcmd
        version 5.0
        
        local options "noDetail"
        parse "`*'"        
        
        if "`detail'" != "" {
                local opt ", nodetail"
        }                

        nobreak {
                while "`end'" == "" {
                        local cmd        
                        while "`cmd'" == "" {
                                di _n in bl "(expr) " in wh _request(_cmd) 
                        }                        
                        local tcmd = trim("`cmd'")
                        local f = substr("`tcmd'", 1, 1)

                        if "`tcmd'" == "." {
                                local end 1
                        }
                        else if "`f'" == "." {
                                * does not work properly with commands >80 chars (shit)
                                local cmd = substr("`cmd'", 2, .)
                                capt noi break  `cmd'
                                if _rc > 1 { 
                                        di in bl "r(" _rc ");"
                                }
                        }
                        else {
                                capt noi break  expr `opt' : `cmd'
                                if _rc > 1 { 
                                        di in bl "r(" _rc ");"
                                }
                        }
                }                        
        }
end