Mercurial > mm7
view lib/swig/swigwin-2.0.11/vms/logicals.com @ 2193:4842f58715ea
sub_47C3D7_get_fog_related_stuff to sub_47C3D7_get_fog_specular cleanup, IsTerrainSlopeTooHigh restoring commented out min,min/max,max implementation, some small changes in OnMapLoad, sub_4465DF_check_season attempted to pick the best readabilty/maintainability tradeoff
| author | Grumpy7 |
|---|---|
| date | Thu, 30 Jan 2014 22:09:10 +0100 |
| parents | b3009adc0e2f |
| children |
line wrap: on
line source
$! $! $! $ proc = f$environment("PROCEDURE") $ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL") $ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY") $ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY") $ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir) $ cur_dir = cur_dir - "[" $ cur_dir = cur_dir - "]" $ cur_dir = cur_dir - "<" $ cur_dir = cur_dir - ">" $ $! remove trealing .VMS $ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir) $ $ define 'p1' /trans=concealed swig_root 'cur_dev'['root_dir'.]