|
| 1 | +# CORE.setting |
| 2 | +# |
| 3 | +# Copyright 2009-2010, Larry Wall |
| 4 | +# |
| 5 | +# You may copy this software under the terms of the Artistic License, |
| 6 | +# version 2.0 or later. |
| 7 | + |
| 8 | +my proto WHAT {*} |
| 9 | +my proto WHERE {*} |
| 10 | +my proto HOW {*} |
| 11 | +my proto WHICH {*} |
| 12 | +my proto VAR {*} |
| 13 | +my proto WHO {*} |
| 14 | +my proto WHENCE {*} |
| 15 | +my proto fail {*} |
| 16 | +my proto temp {*} |
| 17 | +my proto let {*} |
| 18 | +my proto any {*} |
| 19 | +my proto all {*} |
| 20 | +my proto none {*} |
| 21 | +my proto one {*} |
| 22 | +my proto not {*} |
| 23 | +my proto so {*} |
| 24 | +my proto next {*} |
| 25 | +my proto last {*} |
| 26 | +my proto redo {*} |
| 27 | +my proto succeed {*} |
| 28 | +my proto goto {*} |
| 29 | + |
| 30 | +my proto die {*} |
| 31 | +my proto exit {*} |
| 32 | +my proto warn {*} |
| 33 | +my proto note {*} |
| 34 | +my proto caller {*} |
| 35 | +my proto callframe {*} |
| 36 | +my proto eval {*} |
| 37 | +my proto evalfile {*} |
| 38 | +my proto callsame {*} |
| 39 | +my proto callwith {*} |
| 40 | +my proto nextsame {*} |
| 41 | +my proto nextwith {*} |
| 42 | +my proto lastcall {*} |
| 43 | +my proto defined {*} |
| 44 | +my proto notdef {*} |
| 45 | +my proto undefine {*} |
| 46 | +my proto item {*} |
| 47 | +my proto list {*} |
| 48 | +my proto flat {*} |
| 49 | +my proto lol {*} |
| 50 | +my proto eager {*} |
| 51 | +my proto hyper {*} |
| 52 | + |
| 53 | +my proto cat {*} |
| 54 | +my proto classify {*} |
| 55 | +my proto categorize {*} |
| 56 | +my proto quotemeta {*} |
| 57 | +my proto chr {*} |
| 58 | +my proto ord {*} |
| 59 | +my proto chrs {*} |
| 60 | +my proto ords {*} |
| 61 | +my proto chop {*} |
| 62 | +my proto chomp {*} |
| 63 | +my proto trim {*} |
| 64 | +my proto trim-leading {*} |
| 65 | +my proto trim-trailing {*} |
| 66 | +my proto index {*} |
| 67 | +my proto rindex {*} |
| 68 | +my proto substr {*} |
| 69 | +my proto join {*} |
| 70 | +my proto split {*} |
| 71 | +my proto comb {*} |
| 72 | +my proto pack {*} |
| 73 | +my proto unpack {*} |
| 74 | +my proto uc {*} |
| 75 | +my proto ucfirst {*} |
| 76 | +my proto lc {*} |
| 77 | +my proto lcfirst {*} |
| 78 | +my proto normalize {*} |
| 79 | +my proto nfc {*} |
| 80 | +my proto nfd {*} |
| 81 | +my proto nfkc {*} |
| 82 | +my proto nfkd {*} |
| 83 | +my proto samecase {*} |
| 84 | +my proto sameaccent {*} |
| 85 | +my proto capitalize {*} |
| 86 | +my proto chars {*} |
| 87 | +my proto graphs {*} |
| 88 | +my proto codes {*} |
| 89 | +my proto bytes {*} |
| 90 | + |
| 91 | +my proto say {*} |
| 92 | +my proto print {*} |
| 93 | +my proto gist {*} |
| 94 | +my proto open {*} |
| 95 | +my proto close {*} |
| 96 | +my proto printf {*} |
| 97 | +my proto sprintf {*} |
| 98 | +my proto unlink {*} |
| 99 | +my proto link {*} |
| 100 | +my proto symlink {*} |
| 101 | +my proto elems {*} |
| 102 | +my proto end {*} |
| 103 | +my proto grep {*} |
| 104 | +my proto map {*} |
| 105 | +my proto first {*} |
| 106 | +my proto reduce {*} |
| 107 | +my proto sort {*} |
| 108 | +my proto min {*} |
| 109 | +my proto max {*} |
| 110 | +my proto minmax {*} |
| 111 | +my proto uniq {*} |
| 112 | +my proto push {*} |
| 113 | +my proto rotate {*} |
| 114 | +my proto reverse {*} |
| 115 | +my proto flip {*} |
| 116 | +my proto take {*} |
| 117 | +my proto splice {*} |
| 118 | +my proto slurp {*} |
| 119 | +my proto get {*} |
| 120 | +my proto lines {*} |
| 121 | +my proto getc {*} |
| 122 | +my proto prompt {*} |
| 123 | +my proto chdir {*} |
| 124 | +my proto chmod {*} |
| 125 | + |
| 126 | +my proto zip {*} |
| 127 | +my proto each {*} |
| 128 | +my proto roundrobin {*} |
| 129 | +my proto return {*} |
| 130 | +my proto leave {*} |
| 131 | +my proto make {*} |
| 132 | +my proto pop {*} |
| 133 | +my proto shift {*} |
| 134 | +my proto unshift {*} |
| 135 | +my proto keys {*} |
| 136 | +my proto values {*} |
| 137 | +my proto hash {*} |
| 138 | +my proto kv {*} |
| 139 | +my proto key {*} |
| 140 | +my proto value {*} |
| 141 | +my proto pairs {*} |
| 142 | +my proto invert {*} |
| 143 | +my proto pair {*} |
| 144 | +my proto enum {*} |
| 145 | +my proto set {*} |
| 146 | +my proto bag {*} |
| 147 | + |
| 148 | +my proto sign {*} |
| 149 | +my proto abs {*} |
| 150 | +my proto floor {*} |
| 151 | +my proto ceiling {*} |
| 152 | +my proto round {*} |
| 153 | +my proto truncate {*} |
| 154 | +my proto exp {*} |
| 155 | +my proto log {*} |
| 156 | +my proto log10 {*} |
| 157 | +my proto sqrt {*} |
| 158 | +my proto roots {*} |
| 159 | +my proto rand {*} |
| 160 | +my proto srand {*} |
| 161 | +my proto pick {*} |
| 162 | +my proto roll {*} |
| 163 | +my proto cis {*} |
| 164 | +my proto unpolar {*} |
| 165 | + |
| 166 | +my proto sin {*} |
| 167 | +my proto cos {*} |
| 168 | +my proto tan {*} |
| 169 | +my proto asin {*} |
| 170 | +my proto acos {*} |
| 171 | +my proto atan {*} |
| 172 | +my proto sec {*} |
| 173 | +my proto cosec {*} |
| 174 | +my proto cotan {*} |
| 175 | +my proto asec {*} |
| 176 | +my proto acosec {*} |
| 177 | +my proto acotan {*} |
| 178 | +my proto sinh {*} |
| 179 | +my proto cosh {*} |
| 180 | +my proto tanh {*} |
| 181 | +my proto asinh {*} |
| 182 | +my proto acosh {*} |
| 183 | +my proto atanh {*} |
| 184 | +my proto sech {*} |
| 185 | +my proto cosech {*} |
| 186 | +my proto cotanh {*} |
| 187 | +my proto asech {*} |
| 188 | +my proto acosech {*} |
| 189 | +my proto acotanh {*} |
| 190 | +my proto atan2 {*} |
| 191 | + |
| 192 | +my proto today {*} |
| 193 | + |
| 194 | +my proto gmtime {*} |
| 195 | +my proto localtime {*} |
| 196 | +my proto times {*} |
| 197 | +my proto gethost {*} |
| 198 | +my proto getpw {*} |
| 199 | +my proto chroot {*} |
| 200 | +my proto getlogin {*} |
| 201 | +my proto shell {*} |
| 202 | +my proto run {*} |
| 203 | +my proto runinstead {*} |
| 204 | +my proto fork {*} |
| 205 | +my proto wait {*} |
| 206 | +my proto kill {*} |
| 207 | +my proto sleep {*} |
| 208 | +my proto dir {*} |
| 209 | + |
| 210 | +my proto postfix:<i> ($x) {*} |
| 211 | +my proto infix:<.> ($x,$y) {*} |
| 212 | +my proto postfix:['->'] ($x) {*} |
| 213 | +my proto postfix:<++> ($x) {*} |
| 214 | +my proto postfix:«--» ($x) {*} |
| 215 | +my proto prefix:<++> ($x) {*} |
| 216 | +my proto prefix:«--» ($x) {*} |
| 217 | +my proto infix:<**> ($x,$y) {*} |
| 218 | +my proto prefix:<!> ($x) {*} |
| 219 | +my proto prefix:<+> ($x) {*} |
| 220 | +my proto prefix:<-> ($x) {*} |
| 221 | +my proto prefix:<~~> ($x) {*} |
| 222 | +my proto prefix:<~> ($x) {*} |
| 223 | +my proto prefix:<??> ($x) {*} |
| 224 | +my proto prefix:<?> ($x) {*} |
| 225 | +my proto prefix:<~^> ($x) {*} |
| 226 | +my proto prefix:<+^> ($x) {*} |
| 227 | +my proto prefix:<?^> ($x) {*} |
| 228 | +my proto prefix:<^^> ($x) {*} |
| 229 | +my proto prefix:<^> ($x) {*} |
| 230 | +my proto prefix:<||> ($x) {*} |
| 231 | +my proto prefix:<|> ($x) {*} |
| 232 | +my proto infix:<*> ($x,$y) {*} |
| 233 | +my proto infix:</> ($x,$y) {*} |
| 234 | +my proto infix:<div> ($x,$y) {*} |
| 235 | +my proto infix:<%> ($x,$y) {*} |
| 236 | +my proto infix:<mod> ($x,$y) {*} |
| 237 | +my proto infix:<+&> ($x,$y) {*} |
| 238 | +my proto infix:« << » ($x,$y) {*} |
| 239 | +my proto infix:« >> » ($x,$y) {*} |
| 240 | +my proto infix:<~&> ($x,$y) {*} |
| 241 | +my proto infix:<?&> ($x,$y) {*} |
| 242 | +my proto infix:« ~< » ($x,$y) {*} |
| 243 | +my proto infix:« ~> » ($x,$y) {*} |
| 244 | +my proto infix:« +< » ($x,$y) {*} |
| 245 | +my proto infix:« +> » ($x,$y) {*} |
| 246 | +my proto infix:<+> ($x,$y) {*} |
| 247 | +my proto infix:<-> ($x,$y) {*} |
| 248 | +my proto infix:<+|> ($x,$y) {*} |
| 249 | +my proto infix:<+^> ($x,$y) {*} |
| 250 | +my proto infix:<~|> ($x,$y) {*} |
| 251 | +my proto infix:<~^> ($x,$y) {*} |
| 252 | +my proto infix:<?|> ($x,$y) {*} |
| 253 | +my proto infix:<?^> ($x,$y) {*} |
| 254 | +my proto infix:<x> ($x,$y) {*} |
| 255 | +my proto infix:<xx> ($x,$y) {*} |
| 256 | +my proto infix:<~> ($x,$y) {*} |
| 257 | +my proto infix:<&> ($x,$y) {*} |
| 258 | +my proto infix:<|> ($x,$y) {*} |
| 259 | +my proto infix:<^> ($x,$y) {*} |
| 260 | +my proto infix:« <=> » ($x,$y) {*} |
| 261 | +my proto infix:<..> ($x,$y) {*} |
| 262 | +my proto infix:<^..> ($x,$y) {*} |
| 263 | +my proto infix:<..^> ($x,$y) {*} |
| 264 | +my proto infix:<^..^> ($x,$y) {*} |
| 265 | +my proto infix:<==> ($x,$y) {*} |
| 266 | +my proto infix:<!=> ($x,$y) {*} |
| 267 | +my proto infix:« < » ($x,$y) {*} |
| 268 | +my proto infix:« <= » ($x,$y) {*} |
| 269 | +my proto infix:« > » ($x,$y) {*} |
| 270 | +my proto infix:« >= » ($x,$y) {*} |
| 271 | +my proto infix:<~~> ($x,$y) {*} |
| 272 | +my proto infix:<!~> ($x,$y) {*} |
| 273 | +my proto infix:<=~> ($x,$y) {*} |
| 274 | +my proto infix:<eq> ($x,$y) {*} |
| 275 | +my proto infix:<ne> ($x,$y) {*} |
| 276 | +my proto infix:<lt> ($x,$y) {*} |
| 277 | +my proto infix:<le> ($x,$y) {*} |
| 278 | +my proto infix:<gt> ($x,$y) {*} |
| 279 | +my proto infix:<ge> ($x,$y) {*} |
| 280 | +my proto infix:<=:=> ($x,$y) {*} |
| 281 | +my proto infix:<===> ($x,$y) {*} |
| 282 | +my proto infix:<eqv> ($x,$y) {*} |
| 283 | +my proto infix:<before> ($x,$y) {*} |
| 284 | +my proto infix:<after> ($x,$y) {*} |
| 285 | +my proto infix:<&&> ($x,$y) {*} |
| 286 | +my proto infix:<||> ($x,$y) {*} |
| 287 | +my proto infix:<^^> ($x,$y) {*} |
| 288 | +my proto infix:<//> ($x,$y) {*} |
| 289 | +my proto infix:<min> ($x,$y) {*} |
| 290 | +my proto infix:<max> ($x,$y) {*} |
| 291 | +my proto infix:<?? !!> ($x,$y) {*} |
| 292 | +my proto infix:<!!> ($x,$y) {*} |
| 293 | +my proto infix:<?> ($x,$y) {*} |
| 294 | +my proto infix:<ff> ($x,$y) {*} |
| 295 | +my proto infix:<^ff> ($x,$y) {*} |
| 296 | +my proto infix:<ff^> ($x,$y) {*} |
| 297 | +my proto infix:<^ff^> ($x,$y) {*} |
| 298 | +my proto infix:<fff> ($x,$y) {*} |
| 299 | +my proto infix:<^fff> ($x,$y) {*} |
| 300 | +my proto infix:<fff^> ($x,$y) {*} |
| 301 | +my proto infix:<^fff^> ($x,$y) {*} |
| 302 | +my proto infix:<=> ($x,$y) {*} |
| 303 | +my proto infix:<:=> ($x,$y) {*} |
| 304 | +my proto infix:<::=> ($x,$y) {*} |
| 305 | +my proto infix:<.=> ($x,$y) {*} |
| 306 | +my proto infix:« => » ($x,$y) {*} |
| 307 | +my proto prefix:<so> ($x) {*} |
| 308 | +my proto prefix:<not> ($x) {*} |
| 309 | +my proto infix:<,> ($x,$y) {*} |
| 310 | +my proto infix:<:> ($x,$y) {*} |
| 311 | +my proto infix:<X> ($x,$y) {*} |
| 312 | +my proto infix:<Z> ($x,$y) {*} |
| 313 | +my proto infix:<minmax> ($x,$y) {*} |
| 314 | +my proto infix:<...> ($x,$y) {*} |
| 315 | +my proto infix:<and> ($x,$y) {*} |
| 316 | +my proto infix:<andthen> ($x,$y) {*} |
| 317 | +my proto infix:<or> ($x,$y) {*} |
| 318 | +my proto infix:<orelse> ($x,$y) {*} |
| 319 | +my proto infix:<xor> ($x,$y) {*} |
| 320 | +my proto infix:« <== » ($x,$y) {*} |
| 321 | +my proto infix:« ==> » ($x,$y) {*} |
| 322 | +my proto infix:« <<== » ($x,$y) {*} |
| 323 | +my proto infix:« ==>> » ($x,$y) {*} |
| 324 | + |
| 325 | +my package PROCESS { |
| 326 | + my %ENV is export; |
| 327 | +} |
| 328 | + |
| 329 | +our %SIG; |
| 330 | +package DB { |
| 331 | + our $deep; |
| 332 | +} |
| 333 | + |
| 334 | +{YOU_ARE_HERE}; |
0 commit comments