moving to project folder

picocalc/ulisp-extensions.ino

@@ -34,7 +34,7 @@ bcd_to_dec(uint8_t n)
 
 /*
  * STANDARD DEFINITIONS
- * 
+ *
  * These definitions should be the same on every platform.
  */
 object *
@@ -143,17 +143,17 @@ hyperprint(object *form, int lm, pfun_t pfun)
 		}
 
 		while (form != NULL) {
-			if (atom(form)) { 
-				pfstring(PSTR(" . "), pfun); 
+			if (atom(form)) {
+				pfstring(PSTR(" . "), pfun);
 				printobject(form, pfun);
 				pfun(')');
 				return;
-			} else if (separate) { 
+			} else if (separate) {
 				pfun('(');
 				separate = false;
 			} else if (special) {
 				pfun(' ');
-				special--; 
+				special--;
 			} else if (fits) {
 				pfun(' ');
 			} else {
@@ -194,6 +194,7 @@ fn_sym_def(object *args, object *env)
 	return bsymbol(NOTHING);
 }
 
+
 object *
 fn_listlibrary2(object *args, object *env)
 {
@@ -288,7 +289,7 @@ fn_searchn(object *args, object *env)
 	object *pattern = first(args);
 	object *target = second(args);
 
-	if (cddr(args) != NULL) { 
+	if (cddr(args) != NULL) {
 		object *num = third(args);
 
 		if (integerp(num)) {
@@ -311,7 +312,7 @@ fn_searchn(object *args, object *env)
 				target1 = cdr(target1);
 			}
 
-			if (pattern == NULL){ 
+			if (pattern == NULL){
 				last_index = i;
 
 				if (matches-- == 0) {
@@ -335,7 +336,7 @@ fn_searchn(object *args, object *env)
 				j++;
 			}
 
-			if (j == m) { 
+			if (j == m) {
 				last_index = i;
 				if(matches-- == 0){
 					return number(i);
@@ -365,7 +366,7 @@ fn_sd_rename(object *args, object *env)
 	(void) env;
 	char buffer1[BUFFERSIZE];
 	char buffer2[BUFFERSIZE];
-	
+
 
 	object *pathFrom = car(args);
 	if (!stringp(pathFrom)) {
@@ -390,7 +391,7 @@ fn_sd_remove(object *args, object *env)
 {
 	(void) env;
 	char buffer[BUFFERSIZE];
-	
+
 
 	object *arg = car(args);
 	if (!SD.remove(MakeFilename(arg, buffer))) {
@@ -406,7 +407,7 @@ fn_sd_existsp(object *args, object *env)
 	(void) env;
 
 	char buffer[BUFFERSIZE];
-	
+
 	object *arg = car(args);
 	if (!SD.exists(MakeFilename(arg, buffer))) {
 		return nil;
@@ -417,15 +418,15 @@ fn_sd_existsp(object *args, object *env)
 
 /*
    (sd-make-dir path)
-   Create a directory on the SD card. 
-   This will also create any intermediate directories that don’t already exists; 
+   Create a directory on the SD card.
+   This will also create any intermediate directories that don’t already exists;
    e.g. SD.mkdir("a/b/c") will create a, b, and c.
  */
 object *
 fn_sd_mkdir(object *args, object *env)
 {
 	(void) env;
-	
+
 	char	 buffer[BUFFERSIZE];
 	object	*arg = car(args);
 
@@ -465,17 +466,17 @@ fn_sd_list(object *args, object *env)
 {
 	(void) env;
 
-	char *sd_path_buf = NULL; 
+	char *sd_path_buf = NULL;
 
 	SDBegin();
-	File root; 
+	File root;
 	object *result = cons(NULL, NULL);
 	object *ptr = result;
 
 	if (args != NULL) {
 		object *arg1 = checkstring(first(args));
 		int len = stringlength(arg1) + 2; //make it longer for the initial slash and the null terminator
-		sd_path_buf = (char*)malloc(len); 
+		sd_path_buf = (char*)malloc(len);
 
 		if (sd_path_buf != NULL) {
 			cstring(arg1, &sd_path_buf[1], len-1);
@@ -700,16 +701,16 @@ touchKeyModEditor(char temp)
 #if defined (touchscreen)
 	/* t-deck / blackberry keyboard missing symbols
 	   missing mapped	alt symbol
-	   `       k       ' 
-	   ~       p       @ 
-	   %       $       
-	   ^       a       * 
-	   &       q       # 
-	   =       o       + 
-	   <       t       ( 
-	   >       y       ) 
-	   \       u       _ 
-	   |       g       / 
+	   `       k       '
+	   ~       p       @
+	   %       $
+	   ^       a       *
+	   &       q       #
+	   =       o       +
+	   <       t       (
+	   >       y       )
+	   \       u       _
+	   |       g       /
 
 	   [       alt-t   (
 	   ]       alt-y   )
@@ -853,12 +854,6 @@ const char stringsd_dir[] PROGMEM		= "sd-list";
 
 #if defined(PLATFORM_PICOCALC)
 const char string_get_key[] PROGMEM		= "get-key";
-#elif defined(TDECK_PERI_POWERON)
-const char string_gettouchpoints[] PROGMEM = "get-touch-points";
-const char stringKeyboardGetKey[] PROGMEM = "keyboard-get-key";
-const char stringKeyboardFlush[] PROGMEM = "keyboard-flush";
-const char stringSearchStr[] PROGMEM = "search-str";
-const char stringsearchn[] PROGMEM = "searchn";
 
 #elif defined(TDECK_PERI_POWERON)
 const char string_gettouchpoints[] PROGMEM = "get-touch-points";
@@ -866,6 +861,7 @@ const char stringKeyboardGetKey[] PROGMEM = "keyboard-get-key";
 const char stringKeyboardFlush[] PROGMEM = "keyboard-flush";
 #endif
 
+
 /*
  * DOCUMENTATION STRINGS
  *
@@ -974,10 +970,12 @@ const tbl_entry_t lookup_table2[] PROGMEM = {
 
 #if defined(PLATFORM_PICOCALC)
 	{ string_get_key, fn_get_key, 0200, doc_get_key },
+
 #elif defined(TDECK_PERI_POWERON)
 	{ string_gettouchpoints, fn_get_touch_points, 0200, doc_gettouchpoints },
 	{ stringKeyboardGetKey, fn_KeyboardGetKey, 0201, docKeyboardGetKey },
 	{ stringKeyboardFlush, fn_KeyboardFlush, 0200, docKeyboardFlush },
+
 #endif
 };