diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/classes.dylan | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/classes.dylan')
-rw-r--r-- | tests/examplefiles/classes.dylan | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/tests/examplefiles/classes.dylan b/tests/examplefiles/classes.dylan deleted file mode 100644 index 83faf69c..00000000 --- a/tests/examplefiles/classes.dylan +++ /dev/null @@ -1,125 +0,0 @@ -module: sample -comment: for make sure that does not highlight per word. - and it continues on to the next line. - -define class <car> (<object>) - slot serial-number :: <integer> = unique-serial-number(); - constant slot model-name :: <string>, - required-init-keyword: model:; - each-subclass slot has-sunroof? :: <boolean>, - init-keyword: sunroof?:, - init-value: #f; - keyword foo:; - required keyword bar:; -end class <car>; - -define class <flying-car> (<car>) -end class <flying-car>; - -let flying-car = make(<flying-car>); -let car? :: <car?> = #f; -let prefixed-car :: <vehicles/car> = #f; -let model :: <car-911> = #f; - -define constant $empty-string = ""; -define constant $escaped-backslash = '\\'; -define constant $escaped-single-quote = '\''; - -define variable *unique-serial-number* = 0; - -define function unique-serial-number() => (usn :: <integer>) - let serial = *unique-serial-number*; - *unique-serial-number* := *unique-serial-number* + 1; - serial; -end function; - -define constant $blue-car = make(<car>, model: "Viper"); -define constant $black-car = make(<car>, model: "Town Car", sunroof?: #t); -define constant $red-car = make(<car>, model: "F40", sunroof?: #f); - -define method foo() => _ :: <boolean> - #t -end method; - -define method foo() => _ :: <boolean>; - #t -end method; - -define method \+ - (offset1 :: <time-offset>, offset2 :: <time-offset>) - => (sum :: <time-offset>) - let sum = offset1.total-seconds + offset2.total-seconds; - make(<time-offset>, total-seconds: sum); -end method \+; - -define method bar () - 1 | 2 & 3 -end - -if (bar) - 1 -elseif (foo) - 2 -else - 3 -end if; - -select (foo by instance?) - <integer> => 1 - otherwise => 3 -end select; - -/* multi - line - comment -*/ - -/* multi line comments - /* can be */ - nested */ - -define constant $symbol = #"hello"; -define variable *vector* = #[3.5, 5] -define constant $list = #(1, 2); -define constant $pair = #(1 . "foo") - -let octal-number = #o238; -let hex-number = #x3890ADEF; -let binary-number = #b1010; -let float-exponent = 3.5e10; - -block (return) - with-lock (lock) - return(); - end; -exception (e :: <error>) - format-out("Oh no"); -cleanup - return(); -afterwards - format-out("Hello"); -end; - -define macro repeat - { repeat ?:body end } - => { block (?=stop!) - local method again() ?body; again() end; - again(); - end } -end macro repeat; - -define macro with-decoded-seconds - { - with-decoded-seconds - (?max:variable, ?min:variable, ?sec:variable = ?time:expression) - ?:body - end - } - => { - let (?max, ?min, ?sec) = decode-total-seconds(?time); - ?body - } -end macro; - -let x = "This size call should be seen as a builtin despite the odd case.".siZe; - |