Ticket #324: revised.c_function_docs.47551.diff
File revised.c_function_docs.47551.diff, 29.2 KB (added by jkeenan, 12 years ago) |
---|
-
src/string/charset/iso-8859-1.c
541 541 =item C<static INTVAL is_cclass(PARROT_INTERP, INTVAL flags, const STRING *src, 542 542 UINTVAL offset)> 543 543 544 Returns Boolean. 545 544 546 =cut 545 547 546 548 */ … … 591 593 =item C<static INTVAL find_not_cclass(PARROT_INTERP, INTVAL flags, const STRING 592 594 *src, UINTVAL offset, UINTVAL count)> 593 595 596 Returns C<INTVAL>. 597 594 598 =cut 595 599 596 600 */ -
src/string/charset/binary.c
407 407 =item C<static INTVAL is_cclass(PARROT_INTERP, INTVAL flags, const STRING *src, 408 408 UINTVAL offset)> 409 409 410 Returns Boolean. 411 410 412 =cut 411 413 412 414 */ … … 423 425 =item C<static INTVAL find_cclass(PARROT_INTERP, INTVAL flags, const STRING 424 426 *src, UINTVAL offset, UINTVAL count)> 425 427 428 Find a character in the given character class. 429 426 430 =cut 427 431 428 432 */ … … 440 444 =item C<static INTVAL find_not_cclass(PARROT_INTERP, INTVAL flags, const STRING 441 445 *src, UINTVAL offset, UINTVAL count)> 442 446 447 Returns C<INTVAL>. 448 443 449 =cut 444 450 445 451 */ … … 456 462 457 463 =item C<static STRING * string_from_codepoint(PARROT_INTERP, UINTVAL codepoint)> 458 464 465 Creates a new STRING object from a single codepoint C<codepoint>. Returns 466 the new STRING. 467 459 468 =cut 460 469 461 470 */ -
src/string/charset/unicode.c
738 738 739 739 =item C<static int u_iscclass(PARROT_INTERP, UINTVAL codepoint, INTVAL flags)> 740 740 741 Returns Boolean. 742 741 743 =cut 742 744 743 745 */ … … 834 836 =item C<static INTVAL is_cclass(PARROT_INTERP, INTVAL flags, const STRING *src, 835 837 UINTVAL offset)> 836 838 839 Returns Boolean. 840 837 841 =cut 838 842 839 843 */ … … 861 865 =item C<static INTVAL find_cclass(PARROT_INTERP, INTVAL flags, const STRING 862 866 *src, UINTVAL offset, UINTVAL count)> 863 867 868 Find a character in the given character class. 869 864 870 =cut 865 871 866 872 */ … … 901 907 =item C<static INTVAL find_not_cclass(PARROT_INTERP, INTVAL flags, const STRING 902 908 *src, UINTVAL offset, UINTVAL count)> 903 909 910 Returns C<INTVAL>. 911 904 912 =cut 905 913 906 914 */ -
src/string/charset/ascii.c
678 678 =item C<static INTVAL is_cclass(PARROT_INTERP, INTVAL flags, const STRING *src, 679 679 UINTVAL offset)> 680 680 681 Returns Boolean. 682 681 683 =cut 682 684 683 685 */ … … 729 731 =item C<static INTVAL find_not_cclass(PARROT_INTERP, INTVAL flags, const STRING 730 732 *src, UINTVAL offset, UINTVAL count)> 731 733 734 Returns C<INTVAL>. 735 732 736 =cut 733 737 734 738 */ … … 883 887 } 884 888 885 889 /* 890 891 =back 892 893 =cut 894 895 */ 896 897 /* 886 898 * Local variables: 887 899 * c-file-style: "parrot" 888 900 * End: -
src/io/api.c
20 20 is used in Parrot ops. 21 21 22 22 TODO: Where possible, extract some of the filehandle-related details into 23 src/io/filehandle.c, and extract the stringhandle details into24 src/io/io_string.c.23 F<src/io/filehandle.c>, and extract the stringhandle details into 24 a new F<src/io/io_string.c>. 25 25 26 26 =cut 27 27 -
MANIFEST
1 1 # ex: set ro: 2 2 # $Id$ 3 3 # 4 # generated by tools/dev/mk_manifest_and_skip.pl Wed Jun 9 14:23:502010 UT4 # generated by tools/dev/mk_manifest_and_skip.pl Sat Jun 26 13:30:18 2010 UT 5 5 # 6 6 # See below for documentation on the format of this file. 7 7 # … … 278 278 config/gen/platform/cygwin/math.c [] 279 279 config/gen/platform/darwin/begin.c [] 280 280 config/gen/platform/darwin/hires_timer.c [] 281 config/gen/platform/darwin/memalign.c []282 281 config/gen/platform/generic/dl.c [] 283 282 config/gen/platform/generic/dl.h [] 284 283 config/gen/platform/generic/env.c [] … … 288 287 config/gen/platform/generic/itimer.c [] 289 288 config/gen/platform/generic/math.c [] 290 289 config/gen/platform/generic/math.h [] 291 config/gen/platform/generic/memalign.c []292 290 config/gen/platform/generic/memexec.c [] 293 291 config/gen/platform/generic/platform_limits.h [] 294 292 config/gen/platform/generic/signal.c [] -
compilers/pirc/src/pircapi.c
17 17 /* HEADERIZER BEGIN: static */ 18 18 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */ 19 19 20 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */ 21 /* HEADERIZER END: static */ 20 22 23 21 24 /* 22 25 23 26 =head1 DESCRIPTION … … 72 75 =item C<void parse_file(PARROT_INTERP, int flexdebug, FILE *infile, char * const 73 76 filename, int flags, int thr_id, unsigned macro_size, char * const outputfile)> 74 77 75 =cut76 77 78 This will be the proper declaration after testing for thread-safety: 78 79 79 80 void parse_file(int flexdebug, FILE *infile, char * const filename, int flags, 80 81 char * const outputfile) 81 82 83 =cut 84 82 85 */ 83 86 84 85 86 87 void 87 88 parse_file(PARROT_INTERP, int flexdebug, ARGIN(FILE *infile), 88 89 ARGIN(char * const filename), int flags, … … 260 261 =item C<PackFile_ByteCode * pirc_compile_file(PARROT_INTERP, const char 261 262 *filename, STRING **error_message)> 262 263 264 Returns NULL. 265 263 266 =cut 264 267 265 268 */ … … 274 277 } 275 278 276 279 277 /* HEADERIZER END: static */278 280 279 280 281 /* 281 282 282 283 =back -
t/codingstd/c_function_docs.t
91 91 } 92 92 93 93 __DATA__ 94 compilers/pirc/src/pircapi.c95 config/gen/platform/ansi/dl.c96 config/gen/platform/ansi/exec.c97 config/gen/platform/ansi/time.c98 config/gen/platform/darwin/memalign.c99 config/gen/platform/generic/dl.c100 config/gen/platform/generic/exec.c101 config/gen/platform/generic/math.c102 config/gen/platform/generic/memalign.c103 config/gen/platform/generic/stat.c104 config/gen/platform/generic/time.c105 config/gen/platform/netbsd/math.c106 config/gen/platform/openbsd/math.c107 config/gen/platform/solaris/math.c108 config/gen/platform/solaris/time.c109 examples/compilers/japhc.c110 src/gc/generational_ms.c111 src/io/io_string.c112 src/string/charset/ascii.c113 src/string/charset/binary.c114 src/string/charset/iso-8859-1.c115 src/string/charset/unicode.c116 94 117 95 # Local Variables: 118 96 # mode: cperl -
config/gen/platform.pm
191 191 dl.c 192 192 stat.c 193 193 math.c 194 memalign.c195 194 signal.c 196 195 itimer.c 197 196 memexec.c -
config/gen/makefiles/root.in
1798 1798 manifest_tests : 1799 1799 $(PERL) t/harness $(MANIFEST_TEST_FILES) 1800 1800 1801 examples_tests : 1801 examples_tests : test_prep 1802 1802 $(PERL) t/harness $(EXAMPLES_TEST_FILES) 1803 1803 1804 1804 # benchmark tests -
config/gen/platform/netbsd/math.c
1 1 /* $Id$ */ 2 2 3 3 /* 4 * Copyright (C) 2006-20 07, Parrot Foundation.4 * Copyright (C) 2006-2010, Parrot Foundation. 5 5 */ 6 6 7 7 /* … … 12 12 13 13 =head1 DESCRIPTION 14 14 15 math stuff 15 Mathematical functions. 16 16 17 17 =head2 Functions 18 18 … … 29 29 30 30 =item C<extern int Parrot_signbit(double x)> 31 31 32 return true if the Numval has a negative sign.32 Return true if the Numval has a negative sign. 33 33 This is mostly for handling the -0.0 case. 34 34 35 35 =cut … … 57 57 58 58 =item C<int Parrot_signbit_l(long double x)> 59 59 60 Like C<Parrot_signbit()>, only taking long double instead of double. 61 60 62 =cut 61 63 62 64 */ -
config/gen/platform/darwin/memalign.c
1 /*2 * $Id$3 * Copyright (C) 2007-2008, Parrot Foundation.4 */5 6 /*7 8 =head1 NAME9 10 memalign.c11 12 =head1 DESCRIPTION13 14 memalign related stuff15 16 =head2 Functions17 18 =over 419 20 =cut21 22 */23 24 #include <mach/vm_map.h>25 #include <mach/mach_init.h>26 27 /*28 29 =item C<static unsigned long log2int(unsigned long x)>30 31 =cut32 33 */34 35 static unsigned long log2int(unsigned long x) {36 return (x < 2) ? 0 : log2int(x >> 1) + 1;37 }38 39 /*40 41 =item C<static unsigned long roundDownPowerOf2(unsigned long x)>42 43 =cut44 45 */46 47 static unsigned long roundDownPowerOf2(unsigned long x) {48 return (1 << log2int(x));49 }50 51 /*52 53 =item C<static unsigned long roundUpPowerOf2(unsigned long x)>54 55 =cut56 57 */58 59 static unsigned long roundUpPowerOf2(unsigned long x)60 {61 static unsigned long one = 1;62 unsigned long log2Int = log2int(x);63 64 return ((one << log2Int) == x) ? x : (one << (log2Int + 1));65 }66 67 /*68 69 =item C<static unsigned long roundUpToPageBoundary(unsigned long x)>70 71 =cut72 73 */74 75 static unsigned long roundUpToPageBoundary(unsigned long x)76 {77 unsigned long roundedDown = trunc_page(x);78 79 return (roundedDown == x) ? x : (roundedDown + vm_page_size);80 }81 82 typedef struct _memalign_marker_t {83 vm_address_t start;84 vm_size_t size;85 } memalign_marker_t;86 87 /*88 89 =item C<void * Parrot_memalign(size_t align, size_t size)>90 91 =cut92 93 */94 95 void *96 Parrot_memalign(size_t align, size_t size)97 {98 size_t effectiveAlign = align;99 size_t padding = 0;100 size_t amountToAllocate = 0;101 102 if (effectiveAlign < sizeof (void *))103 effectiveAlign = roundUpPowerOf2(sizeof (void *));104 else105 effectiveAlign = roundUpPowerOf2(effectiveAlign);106 107 if (effectiveAlign < sizeof (memalign_marker_t))108 padding = sizeof (memalign_marker_t);109 else110 padding = effectiveAlign;111 112 amountToAllocate = roundUpToPageBoundary(size + padding);113 114 {115 vm_address_t p = (vm_address_t)NULL;116 kern_return_t status = vm_allocate(mach_task_self(), &p,117 amountToAllocate, 1);118 119 if (status != KERN_SUCCESS)120 return NULL;121 else {122 vm_size_t logEffectiveAlign = log2int(effectiveAlign);123 vm_address_t lowestAvaliableAddress =124 p + sizeof (memalign_marker_t);125 vm_address_t roundedDownAddress =126 ((lowestAvaliableAddress >> logEffectiveAlign)127 << logEffectiveAlign);128 vm_address_t returnAddress =129 (roundedDownAddress == lowestAvaliableAddress)130 ? lowestAvaliableAddress131 : (roundedDownAddress + effectiveAlign);132 vm_address_t firstUnneededPage = 0;133 134 memalign_marker_t *marker =135 (memalign_marker_t *)returnAddress - 1;136 137 /* lowest address used, then round down to vm_page boundary */138 vm_address_t usedPageBase = trunc_page((vm_address_t)marker);139 marker->start = usedPageBase;140 marker->size = returnAddress + size - usedPageBase;141 142 if (usedPageBase > p) {143 status = vm_deallocate(mach_task_self(), p, usedPageBase - p);144 145 if (status != KERN_SUCCESS)146 fprintf(stderr, "Parrot_memalign(%zx, %zx) failed "147 "to deallocate extra header space.\n",148 align, size);149 }150 151 firstUnneededPage = roundUpToPageBoundary(returnAddress + size);152 153 if (firstUnneededPage < p + amountToAllocate) {154 status = vm_deallocate(mach_task_self(), firstUnneededPage,155 p + amountToAllocate - firstUnneededPage);156 157 if (status != KERN_SUCCESS) {158 fprintf(stderr, "Parrot_memalign(%zx, %zx) failed "159 "to deallocate extra footer space.\n",160 align, size);161 }162 }163 164 return (void *)returnAddress;165 }166 }167 }168 169 /*170 171 =item C<void Parrot_free_memalign(void *p)>172 173 =cut174 175 */176 177 void178 Parrot_free_memalign(void *p)179 {180 memalign_marker_t *marker = (memalign_marker_t *)p - 1;181 kern_return_t status = vm_deallocate(mach_task_self(),182 marker->start, marker->size);183 184 if (status != KERN_SUCCESS)185 fprintf(stderr, "Parrot_free_memalign(%p) failed!\n", p);186 }187 188 /*189 190 =back191 192 =cut193 194 */195 196 /*197 * Local variables:198 * c-file-style: "parrot"199 * End:200 * vim: expandtab shiftwidth=4:201 */ -
config/gen/platform/ansi/time.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2007 , Parrot Foundation.3 * Copyright (C) 2007-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 27 27 28 28 =item C<INTVAL Parrot_intval_time(void)> 29 29 30 Parrot wrapper around standard library C<time()> function, returning an INTVAL. 31 30 32 =cut 31 33 32 34 */ … … 42 44 43 45 =item C<FLOATVAL Parrot_floatval_time(void)> 44 46 47 Note: We are unable to provide this level of precision under ANSI-C, so we 48 just fall back to intval time for this. 49 45 50 =cut 46 51 47 52 */ … … 49 54 FLOATVAL 50 55 Parrot_floatval_time(void) 51 56 { 52 /* unable to provide this level of precision under ANSI-C, so just fall53 back to intval time for this. */54 57 Parrot_warn(NULL, PARROT_WARNINGS_PLATFORM_FLAG, "Parrot_floatval_time not accurate"); 55 58 return (FLOATVAL)Parrot_intval_time(); 56 59 } -
config/gen/platform/ansi/dl.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2007 , Parrot Foundation.3 * Copyright (C) 2007-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 Dynlib stuff. (Currently, just placeholders.) 14 Parrot functions -- B<none yet implemented> -- which wrap around standard 15 library functions for handling dynamic libraries. 15 16 16 17 =head2 Functions 17 18 18 19 =over 4 19 20 20 = cut21 =item C<void * Parrot_dlopen(const char *filename, Parrot_dlopen_flags flags)> 21 22 22 */ 23 Parrot wrapper around C<dlopen>. B<Not yet implemented.> 23 24 24 /*25 26 =item C<void * Parrot_dlopen(const char *filename, SHIM(Parrot_dlopen_flags27 flags)>28 29 25 =cut 30 26 31 27 */ … … 42 38 43 39 =item C<const char * Parrot_dlerror(void)> 44 40 41 Parrot wrapper around C<dlerror>. B<Not yet implemented.> 42 45 43 =cut 46 44 47 45 */ … … 57 55 58 56 =item C<void * Parrot_dlsym(void *handle, const char *symbol)> 59 57 58 Parrot wrapper around C<dlsym>. B<Not yet implemented.> 59 60 60 =cut 61 61 62 62 */ … … 73 73 74 74 =item C<int Parrot_dlclose(void *handle)> 75 75 76 Parrot wrapper around C<dlclose>. B<Not yet implemented.> 77 76 78 =cut 77 79 78 80 */ -
config/gen/platform/ansi/exec.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 08, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 25 25 26 26 =item C<INTVAL Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)> 27 27 28 Spawn a subprocess 28 B<Not yet implemented on this platform.> Spawn a subprocess. 29 29 30 30 =cut 31 31 … … 43 43 44 44 =item C<INTVAL Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)> 45 45 46 B<Not yet implemented on this platform.> 47 46 48 =cut 47 49 48 50 */ -
config/gen/platform/openbsd/math.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2006-20 07, Parrot Foundation.3 * Copyright (C) 2006-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 math stuff 14 Mathematical functions. 15 15 16 16 =head2 Functions 17 17 … … 37 37 38 38 =item C<extern int Parrot_signbit(double x)> 39 39 40 return true if the Numval has a negative sign.40 Return true if the Numval has a negative sign. 41 41 This is mostly for handling the -0.0 case. 42 42 43 43 =cut … … 65 65 66 66 =item C<int Parrot_signbit_l(long double x)> 67 67 68 Like C<Parrot_signbit()>, only taking long double instead of double. 69 68 70 =cut 69 71 70 72 */ -
config/gen/platform/generic/memalign.c
1 /*2 * $Id$3 * Copyright (C) 2004-2006, Parrot Foundation.4 */5 6 /*7 8 =head1 NAME9 10 config/gen/platform/generic/memalign.c11 12 =head1 DESCRIPTION13 14 memalign related stuff15 16 =head2 Functions17 18 =over 419 20 =cut21 22 */23 24 #if defined(PARROT_HAS_POSIX_MEMALIGN)25 # include <stdlib.h>26 27 /*28 29 =item C<void * Parrot_memalign(size_t align, size_t size)>30 31 =cut32 33 */34 35 void *36 Parrot_memalign(size_t align, size_t size)37 {38 void *p;39 int i = posix_memalign(&p, align, size);40 return i == 0 ? p : NULL;41 }42 43 #elif defined(PARROT_HAS_MEMALIGN)44 45 # if defined(PARROT_HAS_HEADER_MALLOC)46 # include <malloc.h>47 # else48 # include <stdlib.h>49 # endif50 51 /*52 53 =item C<void * Parrot_memalign(size_t align, size_t size)>54 55 =cut56 57 */58 59 void *60 Parrot_memalign(size_t align, size_t size)61 {62 return memalign(align, size);63 }64 65 #endif66 67 /*68 69 =item C<void Parrot_free_memalign(void *p)>70 71 =cut72 73 */74 75 void76 Parrot_free_memalign(void *p)77 {78 free(p);79 }80 81 /*82 83 =back84 85 =cut86 87 */88 89 /*90 * Local variables:91 * c-file-style: "parrot"92 * End:93 * vim: expandtab shiftwidth=4:94 */ -
config/gen/platform/generic/time.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 06, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 Time stuff 14 Parrot time-related functions. 15 15 16 16 =head2 Functions 17 17 … … 28 28 29 29 =item C<INTVAL Parrot_intval_time(void)> 30 30 31 Parrot wrapper around standard library C<time()> function, returning an INTVAL. 32 31 33 =cut 32 34 33 35 */ … … 43 45 44 46 =item C<FLOATVAL Parrot_floatval_time(void)> 45 47 48 Parrot wrapper around standard library C<time()> function, returning a FLOATVAL. 49 46 50 =cut 47 51 48 52 */ … … 59 63 60 64 =item C<void Parrot_sleep(unsigned int seconds)> 61 65 66 Parrot wrapper around standard library C<sleep()> function. 67 62 68 =cut 63 69 64 70 */ … … 90 96 91 97 =item C<struct tm * Parrot_gmtime_r(const time_t *t, struct tm *tm)> 92 98 99 Parrot wrapper around standard library C<gmtime_r()> function. 100 93 101 =cut 94 102 95 103 */ … … 105 113 106 114 =item C<struct tm * Parrot_localtime_r(const time_t *t, struct tm *tm)> 107 115 116 Parrot wrapper around standard library C<localtime_r()> function. 117 108 118 =cut 109 119 110 120 */ … … 120 130 121 131 =item C<char* Parrot_asctime_r(const struct tm *tm, char *buffer)> 122 132 133 Parrot wrapper around standard library C<asctime_r()> function. 134 123 135 =cut 124 136 125 137 */ -
config/gen/platform/generic/dl.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 06, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 Dynlib stuff 14 Parrot functions which wrap around standard library functions for handling dynamic libraries. 15 15 16 16 =head2 Functions 17 17 … … 31 31 32 32 =item C<void * Parrot_dlopen(const char *filename, Parrot_dlopen_flags flags)> 33 33 34 Parrot wrapper around C<dlopen>. Loads dynamic library file named by first 35 argument and returns a handle to it. 36 34 37 =cut 35 38 36 39 */ … … 50 53 51 54 =item C<const char * Parrot_dlerror(void)> 52 55 56 Wrapper around C<dlerror>. System-dependent string that indicates most recent 57 failure in use of C<Parrot_dlopen>, C<Parrot_dlclose> or C<Parrot_dlsym>. 58 53 59 =cut 54 60 55 61 */ … … 68 74 69 75 =item C<void * Parrot_dlsym(void *handle, const char *symbol)> 70 76 77 Wrapper around C<dlysm>. Takes a handle returned by C<Parrot_dlopen> and 78 returns address where symbol is located. 79 71 80 =cut 72 81 73 82 */ … … 86 95 87 96 =item C<int Parrot_dlclose(void *handle)> 88 97 98 Wrapper around C<dlclose>. Releases reference to dynamic library specified 99 by argument. Returns C<0> on success and C<-1> on failure. 100 89 101 =cut 90 102 91 103 */ -
config/gen/platform/generic/stat.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2007-20 08, Parrot Foundation.3 * Copyright (C) 2007-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 26 26 27 27 =item C<PMC * Parrot_stat_file(PARROT_INTERP, STRING *filename)> 28 28 29 B<Not implemented.> Returns C<NULL>. 30 29 31 =cut 30 32 31 33 */ … … 41 43 =item C<PMC * Parrot_stat_info_pmc(PARROT_INTERP, STRING *filename, INTVAL 42 44 thing)> 43 45 46 B<Not implemented.> Returns C<NULL>. 47 44 48 =cut 45 49 46 50 */ … … 56 60 =item C<static INTVAL stat_common(PARROT_INTERP, struct stat *statbuf, INTVAL 57 61 thing, int status)> 58 62 63 Stats the file, and returns the information specified by C<thing>. C<thing> can 64 be one of: 65 66 =over 4 67 68 =item * C<STAT_EXISTS> 69 70 =item * C<STAT_FILESIZE> 71 72 =item * C<STAT_ISDIR> 73 74 =item * C<STAT_ISREG> 75 76 =item * C<STAT_ISDEV> 77 78 =item * C<STAT_ACCESSTIME> 79 80 =item * C<STAT_MODIFYTIME> 81 82 =item * C<STAT_CHANGETIME> 83 84 =item * C<STAT_UID> 85 86 =item * C<STAT_GID> 87 88 =item * C<STAT_PLATFORM_DEV> 89 90 =item * C<STAT_PLATFORM_INODE> 91 92 =item * C<STAT_PLATFORM_MODE> 93 94 =item * C<STAT_PLATFORM_NLINKS> 95 96 =item * C<STAT_PLATFORM_DEVTYPE> 97 98 =item * C<STAT_PLATFORM_MODE> 99 100 =item * C<STAT_PLATFORM_NLINKS> 101 102 =item * C<STAT_PLATFORM_DEVTYPE> 103 104 =item * C<STAT_PLATFORM_BLOCKSIZE> 105 106 =item * C<STAT_PLATFORM_BLOCKS> 107 108 =back 109 110 C<STAT_CREATETIME> and C<STAT_BACKUPTIME> are not supported and will return C<-1>. 111 59 112 =cut 60 113 61 114 */ … … 141 194 =item C<INTVAL Parrot_stat_info_intval(PARROT_INTERP, STRING *file, INTVAL 142 195 thing)> 143 196 197 Returns the stat field given by C<thing> of file C<file>. 198 144 199 =cut 145 200 146 201 */ … … 164 219 =item C<INTVAL Parrot_fstat_info_intval(PARROT_INTERP, INTVAL file, INTVAL 165 220 thing)> 166 221 222 Returns the fstat field given by C<thing> from file identifier C<file>. 223 167 224 =cut 168 225 169 226 */ … … 184 241 =item C<FLOATVAL Parrot_stat_info_floatval(PARROT_INTERP, STRING *filename, 185 242 INTVAL thing)> 186 243 244 Currently returns C<-1.0> and has no side effects. 245 187 246 =cut 188 247 189 248 */ … … 199 258 =item C<STRING * Parrot_stat_info_string(PARROT_INTERP, STRING *filename, INTVAL 200 259 thing)> 201 260 261 B<Not implemented.> Returns C<NULL>. 262 202 263 =cut 203 264 204 265 */ -
config/gen/platform/generic/exec.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 09, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 system() stuff 14 Parrot functions to run operating system commands. 15 15 16 16 =head2 Functions 17 17 … … 28 28 29 29 =item C<INTVAL Parrot_Run_OS_Command(PARROT_INTERP, STRING *command)> 30 30 31 Spawn off a subprocess and wait for the damn thingto complete,32 returning the return value of the process 31 Spawn off a subprocess provided in a string. Wait for it to complete, 32 returning the return value of the process. 33 33 34 34 =cut 35 35 … … 72 72 73 73 =item C<INTVAL Parrot_Run_OS_Command_Argv(PARROT_INTERP, PMC *cmdargs)> 74 74 75 Spawn off a subprocess provided in command-line arguments. Wait for it to 76 complete, returning the return value of the process. 77 75 78 =cut 76 79 77 80 */ … … 125 128 } 126 129 127 130 /* 131 132 =back 133 134 =cut 135 136 */ 137 138 /* 128 139 * Local variables: 129 140 * c-file-style: "parrot" 130 141 * End: -
config/gen/platform/generic/math.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 07, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 math stuff 14 Mathematical functions. 15 15 16 16 =head2 Functions 17 17 18 18 =over 4 19 19 20 =cut21 22 */23 24 /*25 26 20 =item C<extern int Parrot_signbit(double x)> 27 21 28 return true if the Numval has a negative sign.22 Return true if the Numval has a negative sign. 29 23 This is mostly for handling the -0.0 case. 30 24 31 25 =cut 32 26 33 27 */ 34 28 35 /*36 */37 29 #if DOUBLE_SIZE == 2 * INT_SIZE 38 30 extern int 39 31 Parrot_signbit(double x) … … 55 47 56 48 =item C<int Parrot_signbit_l(long double x)> 57 49 50 Like C<Parrot_signbit()>, only taking long double instead of double. 51 58 52 =cut 59 53 60 54 */ -
config/gen/platform/solaris/time.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2004-20 06, Parrot Foundation.3 * Copyright (C) 2004-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 Time stuff 14 Parrot time-related functions. 15 15 16 16 =head2 Functions 17 17 … … 28 28 29 29 =item C<INTVAL Parrot_intval_time(void)> 30 30 31 Parrot wrapper around standard library C<time()> function, returning an INTVAL. 32 31 33 =cut 32 34 33 35 */ … … 43 45 44 46 =item C<FLOATVAL Parrot_floatval_time(void)> 45 47 48 Parrot wrapper around standard library C<time()> function, returning a FLOATVAL. 49 46 50 =cut 47 51 48 52 */ … … 59 63 60 64 =item C<void Parrot_sleep(unsigned int seconds)> 61 65 66 Parrot wrapper around standard library C<sleep()> function. 67 62 68 =cut 63 69 64 70 */ … … 90 96 91 97 =item C<struct tm * Parrot_gmtime_r(const time_t *t, struct tm *tm)> 92 98 99 Parrot wrapper around standard library C<gmtime_r()> function. 100 93 101 =cut 94 102 95 103 */ … … 105 113 106 114 =item C<struct tm * Parrot_localtime_r(const time_t *t, struct tm *tm)> 107 115 116 Parrot wrapper around standard library C<localtime_r()> function. 117 108 118 =cut 109 119 110 120 */ … … 120 130 121 131 =item C<char* Parrot_asctime_r(const struct tm *tm, char *buffer)> 122 132 133 Parrot wrapper around standard library C<asctime_r()> function. 134 123 135 =cut 124 136 125 137 */ -
config/gen/platform/solaris/math.c
1 1 /* 2 2 * $Id$ 3 * Copyright (C) 2006-20 07, Parrot Foundation.3 * Copyright (C) 2006-2010, Parrot Foundation. 4 4 */ 5 5 6 6 /* … … 11 11 12 12 =head1 DESCRIPTION 13 13 14 math stuff 14 Mathematical functions. 15 15 16 16 =head2 Functions 17 17 … … 35 35 36 36 =item C<extern int Parrot_signbit(double x)> 37 37 38 return true if the Numval has a negative sign.38 Return true if the Numval has a negative sign. 39 39 This is mostly for handling the -0.0 case. 40 40 41 41 =cut … … 63 63 64 64 =item C<int Parrot_signbit_l(long double x)> 65 65 66 Like C<Parrot_signbit()>, only taking long double instead of double. 67 66 68 =cut 67 69 68 70 */ -
examples/compilers/japhc.c
69 69 70 70 =item C<static int unescape(char *string)> 71 71 72 Unescape a string. 73 72 74 =cut 73 75 74 76 */