Sound.SC3.RW.ID

Rewrite character identifiers for UGen.ID graphs.

Greek letters

greek_letters :: [(Char, Char, String)]

Table of greek letters (upper-case,lower-case,name).

 length greek_letters == 24
 (['

type Name_Supply = [Char]

Indefinite sequence of character identifiers.

greek_letters_nm :: Name_Supply

greek_letters as Name_Supply.

 take 4 greek_letters_nm == ['

Rewriters

rewrite :: Name_Supply -> String -> String

Rewrite each haskell letter character literal at string l with values from the character supply s.

 rewrite ['

hsc3_id_rewrite :: String -> String

rewrite greek_letters_nm.

 hsc3_id_rewrite "'a','.','a'" == "'

hsc3_id_clear :: String -> String

IO

hsc3_id_rewrite_preprocessor :: FilePath -> FilePath -> FilePath -> IO ()

File based (haskell pre-processor) variant of hsc3_id_rewrite.

hsc3_id_rewrite_inplace :: FilePath -> IO ()

File based (inplace) variant of hsc3_id_rewrite. Copies file to ~ suffix and replaces initial file.

 let fn = "/home/rohan/sw/hsc3-graphs/gr/resonant-dust.hs"
 in hsc3_id_rewrite_file fn