corrade-nucleus-nucleons – Blame information for rev 24

Subversion Repositories:
Rev:
Rev Author Line No. Line
20 office 1 form Highlighter test
2 sentence My_sentence This should all be a string
3 text My_text This should also all be a string
4 word My_word Only the first word is a string, the rest is invalid
5 boolean Binary 1
6 boolean Text no
7 boolean Quoted "yes"
8 comment This should be a string
9 real left_Range -123.6
10 positive right_Range_max 3.3
11 integer Int 4
12 natural Nat 4
13 endform
14  
15 # External scripts
16 include /path/to/file
17 runScript: "/path/to/file"
18 execute /path/to/file
19  
20 stopwatch
21  
22 # old-style procedure call
23 call oldStyle "quoted" 2 unquoted string
24 assert oldStyle.local = 1
25  
26 # New-style procedure call with parens
27 @newStyle("quoted", 2, "quoted string")
28 if praatVersion >= 5364
29 # New-style procedure call with colon
30 @newStyle: "quoted", 2, "quoted string"
31 endif
32  
33 # if-block with built-in variables
34 if windows
35 # We are on Windows
36 elsif unix = 1 or !macintosh
37 exitScript: "We are on Linux"
38 else macintosh == 1
39 exit We are on Mac
40 endif
41  
42 # inline if with inline comment
43 var = if macintosh = 1 then 0 else 1 fi ; This is an inline comment
44  
45 # for-loop with explicit from using local variable
46 # and paren-style function calls and variable interpolation
47 n = numberOfSelected("Sound")
48 for i from newStyle.local to n
49 sound'i' = selected("Sound", i)
50 sound[i] = sound'i'
51 endfor
52  
53 for i from 1 to n
54 # Different styles of object selection
55 select sound'i'
56 sound = selected()
57 sound$ = selected$("Sound")
58 select Sound 'sound$'
59 selectObject(sound[i])
60 selectObject: sound
61  
62 # Pause commands
63 beginPause("Viewing " + sound$)
64 if i > 1
65 button = endPause("Stop", "Previous",
66 ...if i = total_sounds then "Finish" else "Next" fi,
67 ...3, 1)
68 else
69 button = endPause("Stop",
70 ...if i = total_sounds then "Finish" else "Next" fi,
71 ...2, 1)
72 endif
73 editor_name$ = if total_textgrids then "TextGrid " else "Sound " fi + name$
74 nocheck editor 'editor_name$'
75 nocheck Close
76 nocheck endeditor
77  
78 # New-style standalone command call
79 Rename: "SomeName"
80  
81 # Command call with assignment
82 duration = Get total duration
83  
84 # Multi-line command with modifier
85 pitch = noprogress To Pitch (ac): 0, 75, 15, "no",
86 ...0.03, 0.45, 0.01, 0.35, 0.14, 600
87  
88 # do-style command with assignment
89 minimum = do("Get minimum...", 0, 0, "Hertz", "Parabolic")
90  
91 # New-style multi-line command call with broken strings
92 table = Create Table with column names: "table", 0,
93 ..."file subject speaker
94 ...f0 f1 f2 f3 " +
95 ..."duration response"
96  
97 removeObject: pitch, table
98  
99 # Picture window commands
100 selectObject: sound
101 # do-style command
102 do("Select inner viewport...", 1, 6, 0.5, 1.5)
103 Black
104 Draw... 0 0 0 0 "no" Curve
105 Draw inner box
106 Text bottom: "yes", sound$
107 Erase all
108  
109 # Demo window commands
110 demo Erase all
111 demo Select inner viewport... 0 100 0 100
112 demo Axes... 0 100 0 100
113 demo Paint rectangle... white 0 100 0 100
114 demo Text... 50 centre 50 half Click to finish
115 demoWaitForInput ( )
116 demo Erase all
117 demo Text: 50, "centre", 50, "half", "Finished"
118 endfor
119  
120 # An old-style sendpraat block
121 sendpraat Praat
122 ...'newline$' Create Sound as pure tone... "tone" 1 0 0.4 44100 440 0.2 0.01 0.01
123 ...'newline$' Play
124 ...'newline$' Remove
125  
126 # A new-style sendpraat block
127 beginSendPraat: "Praat"
128 Create Sound as pure tone: "tone", 1, 0, 0.4, 44100, 440, 0.2, 0.01, 0.01
129 duration = Get total duration
130 Remove
131 endSendPraat: "duration"
132 appendInfoLine: "The generated sound lasted for ", duration, "seconds"
133  
134 time = stopwatch
135 clearinfo
136 echo This script took
137 print 'time' seconds to
138 printline execute.
139  
140 # Old-style procedure declaration
141 procedure oldStyle .str1$ .num .str2$
142 .local = 1
143 endproc
144  
145 # New-style procedure declaration
146 procedure newStyle (.str1$, .num, .str2$)
147 .local = 1
148 endproc