Commit b7c31f72 authored by John van Groningen's avatar John van Groningen
Browse files

move system dependent code to module heap_profile_os_dependent

parent 1c1bd0df
...@@ -13,7 +13,7 @@ empty_progstate :: PrintSetup -> *ProgState [.a]; ...@@ -13,7 +13,7 @@ empty_progstate :: PrintSetup -> *ProgState [.a];
:: SizeByNodeKindElem :: SizeByNodeKindElem
p_open_file_function :: {#.Char} *a -> *(.Bool,{#Char},ProgState [SizeByNodeKindElem],*a) | FileEnv a; p_open_file_function :: {#Char} *a -> *(Bool,{#Char},ProgState [SizeByNodeKindElem],*a) | FileEnv a;
draw_heap_profile_lines :: [.Int] .Bool [.SizeByNodeKindElem] .Int .Int .Int .Int *Picture -> *Picture; draw_heap_profile_lines :: [.Int] .Bool [.SizeByNodeKindElem] .Int .Int .Int .Int *Picture -> *Picture;
......
This diff is collapsed.
...@@ -4,11 +4,9 @@ import StdEnv, StdIO ...@@ -4,11 +4,9 @@ import StdEnv, StdIO
import flexwin import flexwin
import ExtNotice import ExtNotice
import Help import Help
import ShowHeapProfile import ShowHeapProfile,heap_profile_os_dependent
import Platform import Platform
import StdDebug
ApplicationName :== "ShowHeapProfile" ApplicationName :== "ShowHeapProfile"
HelpFileName :== ApplicationName +++ "Help" HelpFileName :== ApplicationName +++ "Help"
...@@ -169,8 +167,8 @@ printfun recId ps ...@@ -169,8 +167,8 @@ printfun recId ps
= ps = ps
| isNothing reply | isNothing reply
= ps = ps
# ((ok,printFont),ps) = accPIO (accScreenPicture (openFont {fName="Courier New",fStyles=[BoldStyle],fSize=8})) ps # print_font = PCorMac {fName="Courier New",fStyles=[BoldStyle],fSize=8} {fName="Monaco",fStyles=[],fSize=9}
// # ((ok,printFont),ps) = accPIO (accScreenPicture (openFont {fName="Monaco",fStyles=[],fSize=9})) ps # ((ok,printFont),ps) = accPIO (accScreenPicture (openFont print_font)) ps
| not ok // handle better... | not ok // handle better...
= ps = ps
= case (fromJust reply) of = case (fromJust reply) of
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment